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Basicskolan 
— lektion nr 1 


Den här veckan startar 
jag med en åtta veckors 
kurs i grundläggande 
Basicprogrammering. 
Jag kommer också varje 
vecka försöka att ha ett 
program i matematik, 
som många har efter- 
lyst. 


Naturligtvis kommer jag 
också att svara på brevfrå- 
gor. Jag börjar med en 
brevfråga och en läsare 
från S Sandby har en del 
frågor, som är gemensam- 
ma för många av er. Läsa- 
ren har en VIC-64 med 
bandspelare och han har 
följande frågor. Han hittar 
inte tecknet för £ på sin da- 
tor. Anledningen till att du 
inte hittar tecknet beror på 
att man behövde den plat- 
sen när datorn skulle ut- 
rustas med å, ä och ö. Ö 
finns i stället för £. Du 
skriver tyvärr inte varför 
du vill ha fram ett pundtec- 
ken så jag kan inte ge dig 
en alternativlösning. 


Registerprogram 

Nästa problem är ett per- 
sonregisterprogram <Sskri- 
vet för disk. I programmet 
finns en mängd rader med 
OPEN-satser, som läsaren 
försökt att översätta till 
bandspelare utan att lyc- 
kas. Jag förutsätter att pro- 
grammet är med sekven- 
tiella filer. Raden måste se 
ut så här t ex 


1000 OPEN 
2,8,2,  NAMN,S,R” eller 

2000 OPEN 
2,8,2,'$:NAMN,S,W” 

Efter OPEN finns tre siff- 
ror och de kan vara annor- 
lunda i ditt program. Hu- 
vudsaken är att det står en 
8 i mitten. Detta är nämli- 
gen datorns siffra för dis- 
kenheten. Efter NAMN, 
står bokstaven S, som be- 
tecknar sekventiell fil och 
nästa bokstav talar om ifall 
datorn läser eller skriver 
till disken. R betyder RE- 
AD = läsa och W betyder 
WRITE = skriva. Detta sy- 
stem är annorlunda till 
bandspelare, där man an- 
vänder en 1 eller 0 för att 
läsa eller skriva. Raderna 
till bandspelare blir i stäl- 
let så här: 


1000 OPEN 1,10 NAMN” 
för att läsa och 
2000 OPEN 111 NAMN” 
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för att skriva till band. 

Du måste tänka på att 
bandspelaren måste vara 
framspolad till rätt ställe. 


Utan ljuspenna 


Läsaren vill också ha ett 
program, där han kan rita 
med datorn utan att an- 
vända ljuspenna. Det är 
svårt att göra ett enkelt 
program för att rita. Det 
finns en del utmärkta pro- 
gram att köpa, tex ”Bla- 
zing Paddles”, ”Paint Ma- 
gic”, ”Koala Painter” och 
”Doodle”. Till alla dessa 
program kan du använda 
joystick. Min favorit av 
dessa program är ”Doodle”. 


Sista frågan gäller nam- 
net på programmet, som 
jag talade om i artikeln 
den 4 januari. Det var 
”Little Computer People”, 
som finns både till disk och 
bandspelare. Diskversio- 
nen har många fler möjlig- 
heter. Det är bara i disk- 
versionen, som man kan 
spela spel med datagubben. 


Nu över till Basicskolan 
lektion ett. 


Den viktigaste knappen 
på datorn heter RETURN, 
ENTER eller NEWLINE 
beroende på vilken dator 
du använder. Det är denna 
knapp, som ger signal till 
datorn att utföra sina or- 
der. Det vanligaste felet 
hos nybörjare är att man 
har glömt att trycka på 
RETURN-knappen. 


Två instruktioner 


Den här gången skall vi 
använda två stycken in- 
struktioner nämligen 
PRINT och GOTO. Print 
använder man när datorn 
skall skriva ut något på 
skärmen. Testa genom att 
skriva PRINT ”ARBETET” 
och tryck därefter på RE- 
TURN. Nu skriver datorn 
ut ordet ARBETET. Efter 
PRINT ser du att citations- 
tecken finns runt ordet 


PRINT CHRS ( 26) 


PRINT" VILKEN FAKULTET 


VILL DU HA"; 
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INPUT N 


PRINT I; 


T=T"I 
NEXT I 


100 PRINT"=" 


IF I<N THEN PRINT 


FOR I=1l TO N 


T 


LROCS TE 


ARBETET. Citationstecken 
måste alltid vara med då 
man vill ha utskrivet bok- 
stäver och tecken. Finns 
inte något citationstecken 
så tror datorn att det är 
siffror den skall skriva ut. 
Pröva genom att skriva 
PRINT ARBETET och 
tryck på RETURN. Datorn 
svarar nu med siffran noll. 
Ytterligare förklaring kom- 
mer i nästa artikel. 


Radnummer 


För att kunna köra ett 
program i Basic så måste 
datorn veta i vilken ord- 
ning den skall utföra saker 
och ting. Detta hjälper man 
datorn med genom att an- 
vända radnummer mellan 
0 och 65535. Normalt bru- 
kar man använda sig av 
var tionde siffra med bör- 
jan på siffran 10. Alltså 10, 
20, 30 och så vidare. Nästa 
instruktion vi skall använ- 
da är GOTO, som är ett 
ovillkorligt hopp. Datorn 
hoppar till den rad, som 
står efter instruktionen 
GOTO. 

Skriv följande lilla pro- 
gram. 


10 PRINT ”ARBETET” 
20 GOTO 10 


Glöm inte att efter varje 
rad trycka på RETURN an- 
nars lagras inte raden i da- 
torns minne. När du är klar 
skriver du kommandot 
RUN som betyder att da- 
torn skall utföra ditt pro- 
gram. Om du nu har gjort 
rätt så får du längst till 
vänster en rad där datorn 
skriver ut ordet ARBETET. 


Ändra tecken 


Jag hoppas att du har läst 
så mycket i din instruk- 
tionsbok att du vet hur 
man stoppar ett program. 
Om du har en VIC så tryck 
på RUN/STOP, annars 
tryck på den tangenten, 
som heter BREAK. Skulle 
du ha en dator, som arbe- 
tar med något operativsy- 
stem så tryck på CTRL och 
C. Skriv om rad 10 på dessa 
två olika sätt och se den 
stora skillnad du får ge- 
nom att bara ändra ett tec- 
ken. 

10 PRINT ”ARBETET”, och 
glöm inte RETURN. Du be- 
höver inte skriva om rad 
20. När du testat detta så 


skriv. 
10 PRINT ”ARBETET” 
Basicskolan fortsätter 


nästa vecka. 

Till slut ett litet program 
om fakultet, alltså tal, som 
multipliceras i en följd. Fa- 
kultet skrives med tecknet 
I så 3! = och 41! = 1"2"3"4 
o s v. Se fter hur snabbt fa- 
kulteten ökar från 1! och 
uppåt. Försök lista ut pro- 
grammet «själv annars 
skriv till mig. 
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GET — en instruktion 
som vållar problem 


Det är svårt med datapro- 
gram. I förra veckans ar- 
tikel lyckades alla gång- 
ertecken bli x-tecken. Ni, 
som inte lyckades med 
programmen så leta efter 
x-en och ändra till gång- 
ertecknet, som är stjärnan 
eller asterisken på din da- 
tor. 


I veckan så var jag på data- 
mässan i Malmö, egentligen 
så var den för kontorsdato- 
rer, men jag visste att man 
skulle visa den nya AMIGAN 
från Commodore. Under den 
tid då jag var på mässan så 
var det folk på två ställen det 
ena var kring en trollkonst- 
när? Och den andra folksam- 
lingen var kring AMIGAN. I 
reklambladet om AMIGAN 
så skriver man ”Den makalö- 
sa Amigan”. 


Avancerad 


Jag måste hålla med att 
detta var en av de mest 
avancerade datorer jag har 
sett. Det är ingen dator för 
hemmabruk, men en fantas- 
tisk dator med många möj- 
ligheter. Det är en 16-bitars 
dator, vilket gör den snabb 
plus att den har tre stycken 
hjälp-processorer, som hjäl- 
per till att flytta data mellan 
olika RAM-positioner. Utan 
att behöva ta hjälp av huvud- 
processorn. 


Tre program 


Man kan köra tre program 
samtidigt, vilket är en stor 
fördel speciellt för dem som 
arbetar med ordbehandling, 
kalkylering och registerpro- 
gram. Att man kan göra det- 
ta beror på att Amigan har 
en mycket avancerad föns- 
terhantering. På skärmen 
kan man alltså se alla tre 
programmen på samma 
gång. Det som jag var mest 
imponerad av är grafiken, 
som kunde hantera 4096 fär- 
ger i högupplösning. Aven 
ljudmöjligheterna var myc- 
ket imponerande med fyra 
kanaler och separata stereo- 
utgångar. 

Varje kanal kan hantera 8 
till 9 oktaver, vilket är mer 
än många stereoanläggning- 
ar kan klara av. Det skulle 


19 
20 
sö 
40 
Se 
Sö 
8 
20 


PRINT 


PRINT 
INPUT B 





vara positivt om Amigan 
kom ut i en lite billigare mo- 
dell till hemdatorsidan, där 
det finns ett stort intresse för 
både grafik och ljud. Kom- 
plett kostar Amigan ca 
20.000:-. 

Jag har fått flera frågor om 
samma sak, nämligen an- 
vändning av instruktionen 
GET. GET är mycket an- 
vändbar när man skall välja 
olika alternativ. Jag skall vi- 
sa två programexempel med 
och utan GET. 


GET och INPUT 


Först en del om GET jäm- 
fört med INPUT. GET kän- 
ner bara av ett tecken, som 
måste hanteras som en 
sträng, medan INPUT kan 
hantera flera tecken både 
numeriska och sträng-varia- 
bler. GET känner av tan- 
gentbordet och reagerar på 
nedtryckt tangent. Det finns 
ytterligare en variation man 
kan använda i valsituationer 
nämligen ON GOTO och ON 
GOSUB. 

Skillnaden är att i första 
fallet hoppar datorn till ett 
radnummer och fortsätter 
där, men i det andra så hop- 
par datorn till en subrutin 
och återvänder till radan ef- 
ter där den hoppade ut. I mi- 
na två programförslag har 
jag i det första använt mig av 
den vanliga med INPUT. I 
den andra har jag använt ON 
GOTO på två olika sätt. 

I INPUT-exemplet är det 
inte så mycket att kommen- 
tera, men i exemplet med ON 
GOTO tror jag att rad 230 
måste förklaras. Ni som följt 
med i Basic-skolan kommer 
kanske ihåg avsnittet om IF 
THEN-satser. Om du har 
glömt så testa följande på 
din dator skriv följande: 

PRINT 5=5 


Datorn svarar nu -1 och 


PRINT CHRO(26) 
PRIMT"”MENY”" 


PRINT" YVAL 1.” 
PRINT"VAL 2." 


ON B GOTO 298,300,10 


200 PRINT CHRO(2£) 
2198 PRINT"”VAL 1" 
220 PRINT"VILL DU SLUTA J/N” 


220 GET 


GOTO SO2,19,239 
228 PRINT CHRU(24) 
319 PRINT"VAL 2” 


3228 END 
508 END 


Hem 
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skriver du så här: 
PRINT 4=5 


Datorn svarar med 0. Vad 
man testar är om något är 
sant eller inte. Datorn ger -1 
när något är sant och 0 när 
något är falskt. Om du ser i 
rad 230 så finner du två jäm- 


förelser antingen om sträng- 
en A är lika med J eller om 
strängen A är lika med N. 
Om nu ett J trycks ner så blir 
första uttrycket -1 som mul- 
tipliceras med 2 vilket blir -2 
till detta adderas nästa ut- 
tryck som blir O eftersom J 
var nedtryckt och till detta 
lägger vi 3 och svaret blir 1. 

Datorn hoppar till första 
radnumret i ON GOTO-sat- 
sen, vilket är 500. Om du i 
stället trycker ner N, så blir 
utträkningen följande. Förs- 
ta villkoret blir 0 och multi- 
plicerat med 2 blir det fortfa- 
rande 0. Nästa uttryck blir 
sant och lika med -1 och till 
detta adderar vi 3 och får 
svaret 2. Nu hoppar datorn 
till rad 10. 


Mindre plats 


Om du trycker ner en an- 
nan tangent så blir båda ut- 
trycken falska och 0, vilket 
gör att svaret blir 3 och da- 
torn ligger kvar i rad 230. 
Samma sak inträffar om ing- 
en tangent är nedtryckt. En 
fördel med skrivsättet med 
GET-satsen är att program- 
men tar mindre plats. 

Ett par kommentarer till 
GET är att en del datorer 
tycker inte om att man skri- 
ver på detta sätt och ger ett 
felmeddelande ”type mis- 
match”, vilket betyder att da- 
torn tycker att man har blan- 
dat ihop numeriska variabler 
med strängvariabler. ABC- 
datorer har ett GET-kom- 
mando, som inte fungerar på 
det vanliga sättet så där kan 
man inte alls använda rad 
230. 

Skriv och berätta om dina 
egna tricks för att göra pro- 
grammen kortare och snab- 
bare. 


Olika språk 

Det har kommit många frå- 
gor om olika språk och hur 
man använder dem. I många 
skolor har man till exempel 
börjat att använda Comal, 
som är ett språk kombinerat 
mellan Basic och Pascal. Jag 
tänkte återkomma i en hel 
artikel och diskutera olika 
språk till våra hemdatorer. 
Det finns mycket att få till 
våra hemdatorer. 


AGR:ECN ( (AU="J")X2+(AR="N"”) +35) 





19 PRINT CHRU(2? 


20 PRINT 

IM PRINT"”MENY” 

48 PRINT"”VAL 1." 

SS PRINT"”VAL 2." 

åa PRINT 

79 INPUT A 

eg IF A=1 THEN 290 

908 IF A=2 THEN SZ39 

198 GOTO 192 

2208 PRINT CHRY (26) 

210 PRINT"VAL 1" 

2228 PRINT"VILL DU SLUTA J/N" 
239 INPUT AC 

240 IF AU="J" THEN END 
2508 IF AU="N" THEN 19 
2498 GOTO 2290 

TIA PRINT CHRE(25) 

318 PRINT"VAL 2" 

320 END 
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Gör ditt eget 
kryptoprogram 


Denna vecka kommer 
att handla om logiska 
operatorer. Det har 
kommit många frågor 
om hur de fungerar. De 
logiska operatorerna är 
bland annat AND, OR 
och NOT. På en del ba- 
sic-dialekter finns också 
XOR. Jag skall visa hur 
man skriver om en XOR 
med hjälp av AND, OR 
och NOT. 


Det har också kommit en 
fråga från en läsare i Trel- 
leborg om kryptoprogram. 
Hans fråga passar bra in i 
dagens artikel eftersom 
krypto görs mycket klurigt 
med hjälp av XOR. 


Först till de vanliga ope- 
ratorerna och jag börjar 
med AND. AND kan som 
de andra användas på två 
sätt. Det vanligaste är att 
man använder AND för att 
två villkor skall uppfyllas. 
Till exempel IF A=6 AND 
B=7 THEN 200. 


Datorn testar 


Datorn testar om både A 
och Bär uppfyllda och i så 
fall hoppar datorn till rad 
200. 


Det andra sättet är att 
testa om en viss bit i en by- 
te innehåller ett visst värde 
exempelvis om man vill 
testa om adressen 32500 
innehåller en etta i 6:e bi- 
ten den som har vikten 64. 
Vikterna är från höger 1, 2, 
4, 8, 16, 32, 64, 128 och nu- 
meras 0, 1, 2, 3, 4, 5, 6 och 7. 
I basic skriver man då så 
här: 

IF (PEEK (32500) AND 
64) = 64 THEN 300. 

Om 6:e biten innehåller 


en etta så hoppar datorn 
till rad 300. 


Det sista sättet används 
mycket när man skall sty- 
ra olika saker. 

OR är nästa och den an- 
vänds på liknande sätt. 

IF A=6 OR B=7 THEN 
200. 

Nu testar datorn om A el- 












et NT 


ler B uppfyller villkoret det 
behövs bara att ett av vär- 
dena är riktiga. Ar båda 
riktiga så hoppar den ock- 
så till 400. 


I andra fallet används OR 
när man vill sätta en etta i 
en viss adress. 

POKE =: 32500, 
(32500 OR 64). 


Om inte biten 64 är tänd 
så blir den det med ovan- 
stående. Vill man släcka en 
viss bit i en adress så an- 
vänder man AND. Nu skall 
vi släcka bit 64 och då tar 
vi och gör på följande sätt. 

POKE =: 32500, (PEEK 
(32500 AND (255-64). 


255 är det tal som man får 
när alla bitarna i en byte är 
tända. 


Detta system med AND 
och OR måste man kunna 
för att styra olika saker 
med hjälp av datorn. 


Den tredje heter NOT och 
betyder icke och skrives på 
följande sätt: 

IF NOT A=5 THEN 600. 

Lägg märke till att NOT 
står framför villkoret. Da- 
torn kommer nu att hoppa 
till rad 600 om A inte är 5. 


Alla logiska operatorer 
kan också användas med 
strängar. Till exempel med 


(PEEK 


NOT kan du testa ett slut: 
IF NOT A$ = ”SLUT” 
THEN 400. 


Så ända tills strängen A$ 
blir ordet SLUT så hoppar 
datorn till en operator som 
inte finns i alla basic-dia- 
lekter är XOR, som betyder 
EXCLUSIVE-OR eller på 
svenska EXKLUSIVT-EL- 
LER. Man också översätta 
det med antingen eller. 
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nom att endast ett villkor 
skall vara uppfyllt. 


IF A=5 XOR B=6 THEN 
400. 


Nu skall antingen A=>5 
eller B=6, men hoppar inte 
till 400 om både A=5 och 
B=6, vilket den gör om där 
hade stått OR i stället för 
XOR. Vad gör man om man 
inte har xor. Då får man 
skriva på följande sätt: 

IF A=5 AND NOT B=6 
OR NOT A=5 AND B=6 
THEN 400. 


Ser krångligt ut men tän- 
ker du lite så är det hela 
ganska logiskt. Du som läst 
lite digitalteknik ser att de 
här logiska operatorerna 
stämmer helt överens med 
digitaltekniken. 


Det lilla programmet i fi- 
gur 1. Kan du använda för 
att testa om din dator har 
de olika operatorerna. Om 
du inte har XOR så kom- 
mer du att få ”SYNTAX 
ERROR” i rad 60. Stryk då 
rad 60. 

Nu till en läsares fråga 
om =: krypteringsprogram. 
Det är naturligtvis spän- 
nande att skicka medde- 
lande som inte andra kan 
läsa. De flesta krypterings- 
program är mycket enkla 
och lätta att knäcka. Ett 
bra == krypteringsprogram 
skall inte ge samma tecken 
för samma bokstav. Om jag 
skall kryptera ordet TITTA 
så innehåller ordet tre T 
och får man ordet ZNZZF, 
så behöver man inte myc- 
ket hjälp för att komma 
fram till att det är fem bok- 
stäver man flyttat fram. 
Om du däremot ser ordet 
VNEOS så är det omöjligt 
att komma fram till att det 


19 PRINT CHRE (24) Den skiljer sig från OR ge- 


206 INPUT "LÖSENORD"; QC 
39 INPUT "ORDET SOM SKALL KRYPTERAS” ; WZ 


är ordet TITTA krypterat. I 
figur 2 så hittar du detta 
krypteringsprogram, som 
ger ordet VNEOS om du 


48 GOSUB 1209 använder... CHRISTIAN 
48 PRINT WU som lösenord. 
78 PRINT" DEN KRYPTERADE TEXTEN BLIR” Lösenord 


Programmet frågar först 


oj 
88 PRINT C efter ett lösenord och se- 


78 END dan efter texten, som skall 
18898 Q=LEN (90) krypteras. Kom ihåg att du 
1818 A=1 kan inte kryptera mer än 

”» 255 tecken åt gången, kan- 
1929 CU= ske mindre du får rådfråga 
1938 FOR 1=1 TO LEN (WMI) din instruktionsbok om 


hur långa strängar du kan 
skriva i en sträng. 

I programmet läggs löse- 
nordet i variabeln 0$ och 
texten, som skall krypteras 
läggs i variabeln W$. Sedan 
används lösenordet för att 
få fram ett siffervärde i rad 
1050, som minskas med 65 
för att få alfabetiska tec- 
ken. Genom att i rad 1060 


1848 N=ASC (MIDE (WE, 1,1) 

18528 B=ASC (MID (RE, A, 1))-65 

18248 PEN AND NOT B OR NOT N AND B 
12738 Cu=C+CHRI IP) 

19828 IF A=8 THEN A=9 

12998 A=A+1 

1188 MEXT I 

11129 RETURN 


O Figur 2. göra en XOR så får jag i 
198 INPUT A rad 1070 i CHRS$(P) fram 
238 INPUT P det nya tecknet, som blir 


olika även om i ursprung- 
stexten har samma tecken. 
Bestäm ett lösenord med 
din kompis, så kan ni skic- 
ka meddelande, som ingen 
kan knäcka. Om du har 
XOR på din skrivare skri- 
ver du i rad 1060 på följan- 
de sätt: 1060 P = NXORB 


38 IF A=5 OR B=6 THEN PRINT "OR" 

48 IF A=5 AND RE=6 THEN PRINT "AND" 

sö IF NCT A=S5 THEN PRINT "NOT" 

45 IF A=5 XOR B=4 THEN PRINT"XOR” 

79 IF A=S AND NOT B=6 OR NOT A=S AND B=6 


THEN PRINT” XOR ”" 
» Figurl1l. 
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Råd och tips 
om datordialekter 


Den här veckan skall 
jag ta upp en del frågor 
om programmering. Det 
är många basicdialekter 
på våra olika datorer 
och det händer ofta att 
man träffar på uttryck, 
som man inte vet hur 
man skall översätta till 
den basic man själv an- 
vänder. Jag skall ta upp 
en del sådana uttryck 
och även visa att det 
kan vara av stor bety- 
delse att man tänker på 
hur lång tid ett program 
skall ta för att uföras. 
Inom vissa gränser kan 
man själv bestämma att 
det skall gå lite fortare. 


IF-THEN-ELSE är ett ut- 
tryck, som inte alla datorer 
har. I en del basicdialekter 
kan du skriva till exempel: 
12 IF A=5 THEN PRINT 
A ELSE PRINT ”INTE 5” 
Ordet ELSE fungerar som 
”I ANNAT FALL SÅ”. Om 
din dator inte har ELSE så 
kan du simulera det genom 
att använda ON-GOTO. 
ON-GOTO fungerar på föl- 
jande sätt: om du skriver 
ON A GOTO 1009, 200), 
300 så kommer datorn att 
hoppa till rad 1020 om 
A=1, till 200 om A=2 
osv. Detta kan man an- 
vända plus att man vet att 
datorn ger värdet & om nå- 
got är falskt och ger siffran 
-1 om något är sant. Vi 
kombinerar nu dessa två 
saker så kan vi skriva om 
IF-THEN-ELSE på följan- 
de sätt: 

12 FOR A=1 TO 6 

22 ON -(A=5) GOTO 30: 
PRINT ”INTE 5”: GOTO 40 
30 PRINT A 

40 NEXT A 

Om A=>3 är sant så hop- 
par datorn till rad 30 ”I 
ANNAT FALL” hoppar den 
till rad 40. 


Lång tid 
Ett annat problem när 
man kör matematikpro- 


gram är att det kan ta väl- 
digt lång tid. Detta beror 
på att man inte har dekla- 
rerat sina variabler 1 bör- 
jan av sitt program. Nor- 
malt är detta något man 
inte behöver bry sig om, 
men om man använder da- 
torn till beräkningar får 
det en mycket stor betydel- 
se. Jag skall visa med någ- 
ra enkla exempel. 


F 
SO CT 
KRt AC 
NR 


hiss 


Rad 


nr ” 


. SÄ Ol 


ed NA Vd NVS 

+ 4 

a-—- OS ' "oa 
- 


Ö Ge inte upp! Alla datorer har uttryck som motsvarar en an- 


nan dators. 


L LA GEENaa 






120 A=0O:B=0:C=0:E=0- 

'F=0:G=0:H=0:1=0 

20 J=O:K=0O:L=O:M=0- 

:N=0:0=0:P=0:Q=0- 

'R=0 

30 S=0:T=20:0U=0:V=0- 

W=0X=0Y=0:Z=0 

40 TIH="000000"” 

50 FOR X=1 TO 120000 

6DY=Y+2Z 

10 NEXT X 

82 Al=TI: PRINT A1/60; 

”SEKUNDER” 
Programmet är skrivet 

för att passa VIC-datorer- 

na, men ta bort rad 460 och 

82 och mät tiden med din 

egen klocka, så går det lika 

bra. Det bör ta ungefär 7 

sekunder att köra pro- 

grammet. Du ser att jag 

har använt variablerna X, 

Y och Z. Dessa variabler är 

deklarerade i slutet på rad 

30. Andra nu programmet 

på följande sätt: 

50 FOR A=1 TO 1000 

620 B=B+C 

10 NEXT A 


Värdet ”noll” 


Kör nu programmet en 
gång till och notera tiden. 
Den bör ha blivit ungefär 4 
sekunder, alltså nästan 
hälften av vad det första 
programmet gav. Varför? 
När datorn letar efter va- 
riabler så börjar den i bör- 
jan av variabellistan och 
fortsätter tills den hittar 
sin variabel. I första pro- 
grammet låg variablerna 
sist, men i det andra var 
det de första variablerna. 
Detta gjorde att program- 
met gick nästan dubbelt så 
fort. Om man inte deklare- 
rar sina variabler i början 
av ett program så skapas 
de efter hand och kan då 
göra att ett program tar 
mycket längre tid än vad 
det normalt skulle behöva 
göra. Så kom ihåg att när 
du gör program med 
många beräkningar så ge 
alla dina variabler värdet 
noll i början av ditt pro- 
gram, så gör du det också 
snabbare. En annan sak att 
tänka på är att hur man 
skriver sina matematiska 
uttryck. Om du använder 
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Hem 


sista programmet och änd- 
rar i rad 60 till följande: 
620 B=75KA75 

Kör programmet och ta 
tiden, det bör bli ungefär 7 
till 8 sekunder. Andra nu 
rad 60 till följande: 

620 B=75U2 

I rad 60 har jag använt 
tecknet upphöjt till, som 
kan vara en uppåtriktad pil 
eller ett tyskt y. Kör nu 
programmet och du bör få 
en tid på 55 till 620 sekun- 
der. Använd inte tecknet 
för upphöjt till i dina pro- 
gram för att det slöar ner 
dem katastrofalt. 

Du som har en COMMO- 
DORE 128 kan använda 
funktionen FAST för att 
snabba upp programmen. 
Vet du att du kan använda 
denna funktion också i 
64-läge? Med en 128 kan du 
snabba upp dina beräk- 
ningar med dubbel hastig- 
het i 64-läge på följande 
sätt: 

Skriv POKE 53296, 1 för 
att sätta på FAST-läge. Nu 
kommer skärmen att se 
konstig ut, så att du kan in- 
te använda detta läge för 
att skriva ut något på skär- 
men, men för att snabba 
upp beräkningar kan du 
göra på följande sätt: An- 
vänd programmet vi hade 
tidigare med upphöjt till. 
Programmet, som tog 55 
sekunder. Gör du följande 
tillägg: 

35 POKE 53296,1: POKE 
53265,11 

75 POKE 53296,0: POKE 
53265,27 

Rad 35 slår över till FAST 
stänger bildskärmen. 

Rad 75 går tillbaka till nor- 
malläge. 

Adressen 53296 sätter allt- 
så på FAST med en ETTA 
och stänger med en NOL- 
LA 


Adressen 53265 stänger av 
skärmen med talet 11 och 


återgår till normalläge 
med talet 27. 
Utländsk tidning 


Det går alltså att komma 
åt funktionerna på 128:an 
även 1 64-läge om du har 
möjlighet med 82 tecken 
på din skärm så kan du 
också få 80 tecken i 64-lä- 
ge. Har du till exempel 
SPEEDSCRIPT version 
3.20 eller högre så kan du 
köra detta med 80O-tecken 
skärm genom att komplet- 
tera ditt ordbehandlings- 
program. Om du är intres- 
serad så köp Computers 
Gazette för juni månad. 
Tidningen kommer ut på 
svenska marknaden i bör- 
jan eller i mitten av juni 
månad. Jag håller på att 
undersöka marknaden för 
CP/M program till 128:an. 
Det är många som skrivit 
och frågat och jag hoppas 
att jag har fått ihop mate- 
rial innan sommarlovet. 
Om du har någon informa- 
tion om CP/M till 128:an så 
skriv snabbt. 
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Lagring av tabeller 


Det närmar sig slutet av 
terminen och slutet på 
den här omgången artik- 
lar. Nästa lördag är sista 
gången den här terminen. 
De av er som får problem 
i sommar med sina pro- 
gram kan skriva direkt till 
mig. För dem som inte 
har listat ut min adress så 
lämnar jag den i slutet av 
artikeln. Dagens artikel 
kommer att bli kort, men 
med en desto större lista 
på ett program. 


18 DIM La(i4,7) 

15 GOSUR 7000 

28 PRINT CHRO(26) 

39 PRINT” MENY" 

28 PRINT"1. NYA RESULTAT” 
SA PRINT"2. VISA TABELL” 

43 PRINT"3. STATUS” 

38 PRINT"4. HÄMTA TABELL” 
98 PRINT"S. GÖRA NY TABELL” 
199 PRINT”4. AVSLUTA” 

118 INPUT " 


1 "hopknåpat” program 


VAD VILL DU GöRA";A 


SN 





Innan programmet skall 
jag tala om att det andra 
numret av ”Svenska HEM- 
DATOR hacking” har kom- 
mit ut. Numret består av en 


128 OM A GOSURB 10098,2000,30I3, 3133, 5SII3, 5000 


138 GOTO 20 
ICa8 PRINT CHRC(26) 


1016 PRIMT"SKRIV V=VINST, O=0AVSJIRT, F=FÖRLUST OCH E=EJ SPELAT” 


13227 FOR I=1 TO N 

1830 PRINT"LAG ";LO(IT. DD: 

1058 INPUT "VV, O, F ELLER E";Ma 
1060 IF Ma="V" THEN GOSUB 1530 
1970 IF Ma="O0" THEN GOSUB 1220 
180 IF Mc="F" THEN GOSUB 1739 
138208 IF M3="E" THEN 1159 

1106 INPUT "MÅLSKILLNAD"; T 


1118 B=VAL(LU(I1, 6) )+T:iLa(1, 5) =STRI(B) 
1120 B=VAL(LO(I, 2) )+1:LU(I, 2)=STRA(B) 


11398 NEXT I 

11408 GOSUBE 099 

11598 GOSUB 8999 

1168 RETURN 

15928 B=VAL (La(I1,3))+1 
1520 LUu(1, H=STRT(B) 
15398 B=VAL (LUu(1,7))+2 
1559 LUu(1,7)=STRE(B) 
1569 RETURN 

1628 B=VAL ILU(I,4))+1 
1629 LU(I1,42)=STRU(B) 
16398 B=VAL (LU(I1,7)) +1 
14598 LU(I1,7)=STRU(B) 
1668 RETURN 

1788 B=VAL (LU(I1,5))+1 
1718 LU(1,S)=STRA(B) 
1728 RETURN 

200208 PRINT CHRa(26) 


2018 PRINT"”LAG"” ; TAB( 10) ; "M-SKILL. "”; TAB(15); ”POANG"” 


23820 FOR 1I=1 TO N 


20328 PRINT LU(I1, 1); TAB(11) ;Lu(1,6) ; TAB(16) ;Lu(I1,.7) 


2840 NEXT I 


2045 INPUT "TRYCK PA RETURN" ; Q0Q0u 


2058 RETURN 

3008 PRINT CHRTU1(26) 
39128 FOR I=1 TO N 

3049 PRINT"”LAG”;LU(I, 1) 


3058 PRINT"ANTAL MATCHER” ;LO(1,2) 


3068 PRINT"VINSTER";LQ(I1,3) 
3978 PRINT"OAVGJORDA";Lu(I1,9) 
30880 PRINT"FöÖRLUSTER" ;Lu(I1,5) 
3098 PRINT”MALSKILLNAD” ;Lu(1,6) 
3108 PRINT"POANG";Lu(I1,. 7) 

3118 PRINT! PRINT 


3129 INPUT "TRYCK PÅ RETURN" ; QQ 


3138 NEXT I 
3149 RETURN 


4008 OPEN 15,8, 15, "I"”:CLOSE 1iS:0OPEN 2,8,2,Pa+"S,R”" 


4818 INPUTH2,N 

4828 FOR I=1 TO N 

4938 FOR J=1 TO 7 

4048 INPUTH2, LO(I,J) 
39058 NEXT J 

4069 NEXT I 

4878 CLOSE 2 

43689 RETURN 

5009 PRINT CHRU.lL26) 
509035 INPUT "HUR MANGA LAG";N 
S919 FOR I=1 TO N 

Sg20 INPUT"LAG";Lu(I, 1) 


59380 INPUT"ANTAL MATCHER” ;La(I,2) 


Se40 INPUT"VINSTER";Lo(1,35) 
SE58 INPUT"OQAVGJORDA";Lo(I, 4) 
SJ69 INPUT"FÖRLUSTER" :LO(1,5) 
5S978 INPUT"”MALSKILLNAD” ;Lu(I, 6) 
5086 INPUT"”POANG";La(I1,. 2) 

S5SA9g8 NEXT I 

Slog GOSUB 3000 

S118 RETURN 

SCC END 

”A988 PRINT CHRA1(264) 

79108 PRINT"VAD HETER TABELLEN" 
7028 INPUT Pa 

7039 RETURN 


eg000 OPEN 15,3,15, ""I":CLOSE 1S:0PEN 2,8,2,"&:", +Pa+"'S,W" 


8918 PRINTHB2,N 

8920 FOR I=1 TO N 
8938 FOR J=1 TO 7 
8959 PRINTH2,LE(I, JD) 
8969 NEXT J 

8978 NEXT I 

8989 CLOSE 2 

88986 RETURN 

9898 FOR 1=1 TO N-1 
9318 FOR J=1+1 TO N 


9828 IF LU(1,2) >LA(J,7) THEN 9988 


9930 FOR K=1 TO 7 
R349 XU=LU(I,K) 

9859 LU(I,K)=LU(J,K) 
9869 LU(J,K)=XG 
9070 NEXT K 

9989 NEXT J 

9098 NEXT I 

9198 RETURN 


z sa SL as 
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del hopskrap från andra da- 
tortidningar. Det är definitivt 
inte tid att börja prenumere- 
ra än. Fortsätter den i sam- 
ma stil så kommer den att dö 
ut, som de andra en hel del 
av oss har förlorat pengar på. 


Ny tidning 

Men det har kommit en ny 
tidning för C-64/C-128 ägare 
som heter ”Datormagasin 
C64/C128” — kostar 12 kro- 
nor. Tidningen är i kvällstid- 
ningsformat och tryckt på 
vanligt tidningspapper. 
Tryckningsmässigt av lägre 
kvalitet än den ovanstående, 
men innehållsmässigt flera 
nivåer högre. En tidning, som 
är värd sitt pris och som jag 
hoppas «överlever, vilket 
kommer att bero på oss. Pro- 
grammet ni ser i dagens arti- 
kel har uppstått från en 
mängd brev, som jag fått ef- 
ter mitt förra tabellprogram i 
vintras. Ola Axelsson i Häss- 
leholm var den, som fick mig 
att sätta mig ner och ”knåpa 
ihop ett program”. Ola har en 
VIC-202 och är en stor opti- 
mist. Först tänkte jag att det 
är omöjligt att klara det på 
en 20:a, men jag har gjort ett 
försök, så att det kan gå in på 
en VIC med bara 3,5 KB. 

Jag har skrivit programmet 

för floppydisk, men du skall 
få ändringar här om du har 
en bandspelare. 
Rad 4000 ändras till 
4500 OPEN 2,1,0,P$ 
Rad 8000 ändras till 
8Z00 OPEN 2,1,1P$ 

Om du använder bandspe- 
lare så använd ett separat 
band för lagring av tabellen. 


Lagra tabeller 


Jag tror att ni har förstått 
att programmet handlar om 
att lagra en tabell tex i fot- 
boll. Datorn tar hand om sor- 
tering när man lagrat nya 
uppgifter. Utskrift av tabell 
är gjort med tanke på den 
begränsade skärmen, som 
VIC:en har. Ju större skärm- 
bredd du har desto fler saker 
kan du skriva ut i tabellut- 
skriften. 


Du, som har bandspelare, 
tänk på att spola bandet till 
rätt ställe, innan datorn bör- 
jar spela in eller av bandet. 


Du som inte har en VIC kan 
ändra i rad 4000 och 8000, 
så att det stämmer med din 
instruktionsbok. 


Du ser att jag verkligen 
”knåpat ihop programmet” 
därför alla dessa GOSUB- 
satser, som kom till efter 
hand som jag skrev pro- 
grammet och kom på saker 
jag hade glömt. Programmet 
är inte någon skönhet vad 
det gäller utskriften på 
skärm, men du kan själv 
snygga till det när det regnar 
i Sommar. 


Här kommer min adress 
om du vill skriva i sommar: 
CHRISTIAN LINDEBERG 
Hasselviksvägen 24 
236 00 Höllviken 
Nästa vecka sista innan som- 
marlovet. 


Arbetet/Lördag 7 juni 1986 





Olika databaser 
Over hela landet 


Detta är den sista artikeln 
före sommaren och jag 
skall försöka städa ut de 
frågor, som är kvar från 
den här terminen. Den 
första frågan gäller data- 
kommunikation. 


Vad finns det för databaser, 
som man kan komma i kon- 
takt med och vad kostar det? 

Det finns en del olika typer 
av baser beroende på vilken 
dator man använder. ABC- 
datorerna har ett par databa- 
ser i den närmaste är i 
Halmstad 035/110771 och he- 
ter ABC-banken och kör ba- 
ra med 300/300 modem. Atari 
har vad jag vet bara en bas 
och den ligger i Stockholm 
och har nummer 08/7710280 
och heter ”The Strapper Ba- 
se”. VIC-datorerna har flera 
baser, den närmaste är i Vä- 
nersborg och har nummer 
031/219424, men kan bara kö- 
ras med C/G Term och 
300/300 modem. Sedan finns 
det en del Fido-baser, som är 
så kallade ”public domain”- 
baser, där man kan få hämta 
program gratis. Det finns en 
Fido-bas i Malmö, som även 
har program till VIC-datorer. 
Fido är ett så kallat bulletin- 
board system (BBS) främst 
med tanke på MS-DOS dato- 
rer men har även till VIC och 
en del programvara i CP/M 
och en del kommer till ABC 
80/800. I Fido kommer man 
också att ha datormöte, så att 
man kan diskutera olika da- 
torproblem. Fido kan han- 
tera 300/300, 75/1200 och 
1200/1200 full duplex. Tele- 
fonnumret är 040/549189. 
Ställ ditt program på 09 data- 
bitar och en stoppbit om du 
skall köra mot Fido. 


Caves 


Nästa fråga gäller vad för 
några porogram man kan 
köra på Commodores 128 i 
CP/M-läge. 

Alla program, som är skriv- 
na i CP/M för Kaypro eller 
Osborne går att köra och lä- 
sa i 128:an. Det finns många 
program, allt från Wordstar, 
Multiplan till många språk 
Basic och Turbo-pascal. Det 
går även att få tag i det klas- 
siska adventure-programmet 
Grottor eller Caves, som det 
heter på engelska. Caves är 
uppdelat på flera bitar och 
tar totalt cirka 200 KB, ett 
stort program. 


Stön 


Ola i Malmö har problem 
med sin nya 128:a med 
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READY. 


18 PRINTCHR(147) 
20 FOR X=9 TO 59 
30 IF PEEK(X+1344)=45 


Hem 





THEN POKE X+1534,4342 


44 IF PEEK(1343-X)=43 THEN POKE 18645-X,42 


35 NEXT Xx 
ÖJ SSd=" 
20 BO=SSd+" 


CHRISTIAN VISAR" 


30 Ba=BaA+"- SKROLLNING - PÅ VIC-DATORER” 
2g Ba=BuU+" DETTA PROGRAM KAN DU" 


160 
1192 
120 
1539 
140 
15g 
l60 
200 
219 
229 
239 


Ba=BU+" 
BO=Ba+" 
BOo=BO+" 


D=g 


IF S=LEN (BT) 
GOTO 200 


READY. 


1571:ans diskdrive. Proble- 
met består av att när man 
växlar läge mellan 128 och 64 
läge, så står diskdriven och 
stönar och låter innan den 
hittar rätt format. 


Det är på det viset att 1571 
uppför sig som en enkelsidig 
drive, alltså som en 1541 i 
64-läge och som en dubbelsi- 
dig drive i 128-läge. För att 
komma ifrån detta problem, 
så gör på följande sätt. Om 
du skall köra i 64-läge, så 
skriver du OPEN 15,8,15, 
”UO>M0”: CLOSE15 och i 
128-läge skriver du OPEN 
15,8,15,”U0 > M1”: CLOSE15. 


PRINT USING är en basic- 
funktion, som inte finns i 
många basicdialekter. Funk- 
tionen tillåter att man skri- 
ver med ett visst antal siffror 
i decimalerna. Ett problem är 
att skall man skriva ut pri- 
ser, så skriver datorn 2.5 om 
priset är 2.50 detta kan man 
avhjälpa med PRING 
USING, där man kan be- 
stämma antalet decimaler så 
att datorn skriver 2.50. Har 
man inte PRINT USING, så 
kan man enkelt snickra ihop 
en egen liten subrutin. Kör 


0 / dag drar Christian Lindeberg ur sladden till sina hemdato- 
rer för den här terminen. Han önskar alla en trevlig sommar 
och på återseende till hösten. 


S=1il IF D=2 THEN 20 
PRINTCHRA (19) ;MIDG(BZ,S, 49) 

FOR 1=8 TO YAICNEXT I:!S=S+1 

THEN D=2: GOTO 1690 


BuU=Ba+" ANVÄNDA I DIN VIC-DATOR" 

DET AR BARA ATT SKRIVA SIN TEXT" 
OCH INTE GLÖMMA ETT MELLANSLAG" 
INNAN MAN BÖRJAR SIN TEXT ” 
BuU=BZ+"0CH ETT I SLUTET ” 





följande program: 10 INPUT 
”ETT TAL”;A 

20 T=A:GOSUB 
10000:PRINT T$ 

30 GOTO 10 


10000 
F$=STR$(INT(T)):S$="." 
10010 IF T< >INT(T) THEN 
S$=SP+MIDS(STR$(100+(- 
TA 100) — 
INT(T) & 100+0.001),3,2) 
10020 
S$+LEFT$(S$+”00”,3):T$=- 
RIGHT$(" ”+F$+5S$,9) 
10030 RETURN 

Det är alltså subrutinen i 
raderna 10000 till 10030 som 
gör det hela. Denna rutin kan 
du använda i dina program. 


Monitor 


Det har kommit många frå- 
gor om RGB och RGBI till 
128:an. 

Till 128:an måste det vara 
en monitor med digatal RGB 
eller RGBI. Det går alltså in- 
te med en TV, som har ana- 
Jog RGB utan att man har yt- 
terligare en burk emellan TV 
och dator. Men om man ut- 
nyttjar 80-tecken på 128:an 
så använd en RF-modulator 
och en vanlig TV, så blir det 
billigare. 

I Allt om Elektronik num- 
mer 5/1985 fanns en byggsats 
på en RF-modulator, som 
man också kan köpa i bygg- 
sats från Allt om Elektronik. 

TIlIl dig, som har en 128:a, 
skriv så här på din dator SYS 
32800,123,45,6 och tryck på 
RETURN. 


Litet program 


Till slut har jag ett litet 
program, som skrollar fram 
text på din 64:a. Tekniken 
kan användas på alla dato- 
rer. Tänk på att du måste ha 
mellanslag i början av varje 
textrad annars skriver da- 
torn ut meddelandet sam- 
manhängande utan mellan- 
slag. Det är också viktigt att 
man har ett mellanslag i slu- 
tet för annars kommer sista 
bokstaven att repeteras över 
hela skärmen. Till sist vill 
jag önska alla en riktigt trev- 
lig och varm sommar. 





Ett va 
aldrig 


Marknadskriget mellan 
Atari och Commodore 
startade i förra veckan. 
Amiga 500 kostar 6.500 
kronor mot Atari 520 ST, 
som kostar 4.500 kronor. 
Den stora frågan är nu 
om Amiga 500 är 2.000 
kronor bättre än Atari 
ST. Jag hoppas att kunna 
prova båda datorerna un- 
der sommaren och försö- 
ka komma med ett svar 
så småningom. 

Det kom ett brev från Mats S i 
Malmö, som undrade om man 
kunde göra en enkel enarmad 
bandit i basic. Jag har skrivit 
ihop ett litet program i basic, 
som använder slumptalsgenera- 
torn för att ta ut tre tal till den 
enarmade banditen. Dessa tre 
tal kan man naturligtvis också 
använda för att plocka ut olika 
symboler från 64:ans tecken- 
uppsättning. Programmet jag 
har gjort använder bara siffror, 
men du kan själv komplettera 
med symboler, som hjärter, ru- 
ter eller andra symboler. 


Undvik Å-A-Ö 

I programmet har jag använt 
mig av hela ord för variablerna. 
När man gör stora program 
skall man alltid använda sådana 
namn på variablerna att de är 
lätta att känna igen. Här har för 
de tre talen använt mig av va- 
riablerna ETT, TVA och TRE. 
Nu undrar nog någon varför an- 
vänder han ordet TVA och inte 
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TVÅ, som det heter på riktigt. 
Anledningen är att på många 
datorer fungerar inte variabel 
namn om man använder ÅÄÖ, 
eftersom dessa inte är naturliga 
från början i datorn. Ni vet att 
det engelska alfabetet slutar på 
Z och därefter har man vad som 
kallas för hakparenteser och ett 
pundtecken. Dessa tecken har 
fått lämna plats för de svenska 
tecken för O. I datorspråkets 
uppbyggnad har man använt de 
här symbolerna speciellt hakpa- 
rentes till att betyda vissa saker 
när de använts. Datorn ser inte 
om det är en hakparentes eller 
ett Å utan avläser bara att den 
har en viss ASCII-kod, som för 
datorn betyder något speciellt. 
För att undvika problem, så an- 
vänd aldrig ÅÄÖ i namn på va- 
rialber. 


Satsa mera! 


Låt oss titta på programmet! 
Rad 10 PRINT CHR$(147) är 
koden för att tömma skärmen 
på Commodores datorer. I GW- 
basic skall man skriva CLS, vil- 
ket är en förkortning av ”Clear 
Screen”, på <ABC-datorerna 
skriver man PRINT CHR$(12). 
Det finns fler varianter men de 


10 FRINT CAR$:147) 

20 FRINT:FRINT"DEN ENARMADE SANDITEN” 
30 FOR I=1 70 LÖGCOSNEXT I 

40 FRRINT CHR&B:1471 

50 PRINT: PÅ INT"HUR MYCKET SATSAR DU" 
60 FRINT: PRINT: INFUT "SERIV ETT TAL 


70 FENG=PFENG+VAD 
20 FRINT: PRINT 


OCH TRYCK FÅ 
KE TURN" I VAD 


70 IF VÄDRÄSOO THEN 150 

100 FRINT: eRINTUMER VILL JAG HA" 

110 FENGEPENG-VADR 

120 GOTO 50 

130 PFRINT:PRINT"TERE AV SAMMA SIFFRA GER "3 SKVAD 
140 FRINT:FRINT"TVÅå AV SAMMA SIFFRA GER "TS RXVÅ 
150 FRINT: PRINT 

150 INFUT "TRYCK PÅ RETURNS TRYCKS 

170 FOR Fk=1 TO INT IRNDX10O+S) SPRINT CHR $ (147) 
1380 PRINT: FRINT: FRINT: PRINT 

190 ETT=INTIRNDX9) 

200 TVAÄSTINT I RNOXK9) 

210 TRE=INTIRNOXS) 


sn 
20 FÖR fsi TA 260: NEXT 


Oo PRINT TAR(1E) ; ETT: TAR (2503 TVÄS TAR CIS) 3 TRE 


740 PRINT FRINT 

250 NEXT 

240 INPUT CTSYCEK PÅ RETURNS TRYCES 

270 IF ETT=TVA THEN 290 

30 GOTO 70 

290 IF TVASTRE THEN 3350 

300 ERINT: PRINTUOO VANN!" GT 2KVAD 

"Lö PERS SPERS-2KXKVAD 

20 GOTO ör 

IA0 PRINT: FRINT"DU VÄNN"G 

140 FRRIMT SKVAD 

T5S0 PENG=PENG-ZXVAD 

F60 FOTA 60 

370 I7 ETT=TRE THEN 4C0 

I30 IF TVAÄ=STRE TEE 420 

390 PRINT FRINT"DU VANN INGET" 

400 FÖR I=1to TO LO NEXT 

410 OTO 40 

ATO PRINTIPRINT"OL VANN": SKVAD 

ANG FERG=PENS- 2XYVAD 

240 PRINT PRINT 

4900 FRINTGS PRINT 

AD PRINT PRINT" VILL DU FÖRSÄTTA!" 

270 TRIST PEINT: [9 SENGIO THEN SRINT CDi HAR 
HUTILLS FÖRLORAT "i PENG 

420 PRINT: PRINT: IF PENGSO THEN PRINT "DU HAR 

HITILLS VUNNIT"; -FENG 

490 FRINT: PRINT . | ku 

500 INFUT"SKRIV I ELLER N OCH TRYCK FÅ TSVARS 

510 IF SVART$="I" TEN 460 

270 [IF SVÄRS$S=E"N" THEN END 


- om cs 
ED 


GOTO 445 


har samma funktion att tömma 
skärmen innan programmet 
börjar skriva något på skärmen. 

Rad 20 är utskrift av program- 
namnet. 

Rad 30 är en vänteloop. Det 
händer ingenting i loopen, men 
datorn väntar här i lite mer än 
en sekund. 

Raderna 50 och 60 tar hand om 
ditt vad, alltså hur mycket du 
satsar. Du ser att jag har också 
kallat variablen för VAD. 

Rad 70 räknar ihop hur myc- 
ket du har satsat i variabeln 
PENG. 

Rad 80 ger två tomma rader. 

Rad 90 kontrollerar hur myc- 
ket du har satsat. Har du satsat 
mindre än 200 så vill datorn att 
du satsar mer, som den också 
talar om i rad 100. 


Slumptal 


Rad 110 måste med så att da- 
torn räknar ifrån dina felsatsa- 
de pengar. 

Rad 120 hoppar till rad 50 så 
du kan öka din insats. 

Rad 130 till 150 talar om hur 
mycket du får tillbaka om du 
har två eller tre lika siffror. 

Rad 160 Här väntar datorn 
tills du har tryckt på RETURN. 
Detta är ett bra sätt när man vill 
att datorn skall vänta tills man 
är klar. 

Rad 170 och 250 här har jag 
gjort en lopp som snurrar ett 
slumpartat antal gånger. Loo- 
pen går från 3 och i bästa fall 
upp till 13. Lägg märke till 
PRINT CHR$(147) efter loopen. 
Genom att tömma skärmen var 
gång det blir en ny slumptalse- 
rie så kommer talen att blinka 
fram på skärmen och bara de 
tre sista kommer att vara kvar 
på skärmen. 

Rad 180 till 210 här tar datorn 
ut slumptal mellan 0 och 8. Des- 
sa slumptal lägger datorn i va- 
riablerna ETT, TVA och TRE. 

Rad 220 skriver ut slumptalen 

på skärmen med hjälp av TAB- 
funktionen. 
Rad 230 en liten vänteloop så att 
man hinner se vad datorn skri- 
ver ut. Testa med att ändra vär- 
det 250 och se vad som händer. 
Från raderna 270 till 450 så tes- 
tar datorn vilka siffror som kom 
upp i variabla ETT, TVA och 
TRE. Datorn jämför parvis om 
de olika variablerna är lika. Om 
ETT är lika med TVA så testar 
den sedan om TVA är lika med 
TRE och är det fallet så är alla 
tre siffrorna samma. Det kan 
också skrivas med hjälp av AND 
och OR men jag tycker att detta 
sätt blir lite mer överskådligt. 

Raderna 460 till 500 skriver ut 
hur mycket du vunnit eller för- 
lorat och frågar om du vill fort- 
sätta. 


Detta är en typ av program där 
du aldrig behöver förlora. Slå 
vad med din kompis (om han in- 
te har läst den här artikeln) att 
du kan alltid vinna pengar av 
datorn och att datorn alltid för- 
lorar. 


Nu är det din tur — du satsar 
först 300 om du vinner nu var 
det lätt, men vi säger att du för- 
lorar. Nu satsar du dubbelt så 
mycket, alltså 600. Förlorar du 
igen så fördubblar du igen till 
1.200. Du håller på ända tills du 
vinner och då har du vinst mot 
datorn. Du kan alltså aldrig för- 
lora med detta system. 
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Problem med sorteringspr :08rammen? 


Inget fel på datorn 
— den arbetar! 


Nu är sommarlovet slut 
och höstterminen har 
börjat. Jag hoppas att 
vädret blir bättre nu än 
vad det har varit i som- 
mar. Allt det här reg- 
nandet har gett många 
tillfälle att sitta framför 
datorn, men jag hade 
gärna bytt datortid mot 
lite solsken och bad. 


Det har kommit många brev 
i sommar och jag skall besva- 
ra en del av dem. Först till 
breven och jag börjar med ett 
från Fredrik i Landskrona. 
Fredrik undrar om det finns 
någon möjlighet att koppla 
modem till en ZX81 för att an- 
vända den till kommunika- 
tion. Jag har sett burkar att 
koppla ihop med en ZX81 för 
att sedan kunna koppla in ett 
modem. Jag vet inte vad dessa 
burkar kostar men ta kontakt 
med Beckman Innovation i 
Stockholm, adressen är Box 
1007, 122 21 Enskede, telefon 
08-39 04 00. 


Police Academy 


Jag har fått brev ifrån Pål och 
Henrik i Lund. De har ett spel 
som heter ”POLICE ACADE- 
MY”. Vad jag vet finns det inte 
något spel ute i affärerna med 
det namnet. Däremot har jag 
hört talas om ett program, 
som heter ”POLICE ACADE- 
MY” och som är ett skämt för 
vad du än skriver så försvin- 
ner allt på skärmen. Det ver- 
kar som om ni har blivit ut- 
satta för ett skämt. 

Pål har skrivit ytterligare 
ett brev angående ett program 
som jag hade den 2 maj. Ty- 
värr har jag inte den listning, 
som fanns i tidningen utan en 
annan. Problemet är att jag 
inte vet hur din rad 500 ser ut. 
Ditt problem hänger kanske 
samman med vad ”Mr X u Y” 
från Eslöv skrev om. Den 30/5 
skrev jag att ordet SALDO in- 
te innehöll något reserverat 
ord. Jag hade fel för i ordet 
SALDO finns ordet DO, som 
är ett reserverat ord hos en 
del datorer. 


Datorn arbetar 


En fråga som jag har fått i ett 
flertal brev är: Varför hänger 
min dator sig när jag kör mitt 
sorteringsprogram? Det är 
inget fel på programmet, men 
datorn hänger sig och jag 
måste stänga datorn. Svaret 









är att datorn inte hänger sig 
utan att den arbetar. Vad det 
hela handlar om är ”garbage 
collection”. Skriv följande pro- 
gram för att se effekten av 
”garbage collection”: 
10 X$="A”:J=0:S=0 
20 DIM A$(9000) 
30 FOR J=0 TO 9000 
40 PRINT J:T=TI 
50 A$(J)="A”+””:A$(9000-J)= 
”B”+r”” 
60 A$(J)="C"+"”":A$(9000-J)= 
”D” +” 

10 S=TI-T:PRINT S, 
80 IF S> 3600 THEN STOP 
90 NEXT J 

Programmet kommer att 
skapa en mängd strängar och 
efter cirka fyra minuter kom- 
mer datorn att stanna och 
börja med sin ”garbage collec- 
tion”. Den kan i värsta fall ta 
upp till 61 minuter. Under 
denna tid är datorn helt låst 
och kan inte göra något. Vad 
som har hänt är att datorn in- 
te har något fritt minnesut- 
rymme kvar för dynamiska 
strängar. 


Högsta adressen 
Man skiljer på två olika typer 
av variabler. De variabler, 
som arbetar med siffror kallas 
numeriska variabler och de, 
som tar hand om bokstäver 
och tecken kallas för strängar. 
Ovanför basicprogrammet 
lägger datorn alla numeriska 
variabler och dessa fylls på 
uppåt och det finns en pekare, 
som håller reda på den högsta 
adressen. 

Strängarna däremot startar 
i toppen på minnet och går 
neråt, och även här finns en 
pekare, som håller reda på 
den lägsta adressen. När pe- 
karen från variablerna kom- 
mer uppåt och pekaren från 
strängarna kommer neråt så 
minskar det fria minnesut- 
rymmet. Om pekarna träffar 
på varandra under körning så 
inträffar en ”garbage collec- 
tion”. Om pekarna träffar på 
varandra omedelbart efter det 
att du skriver RUN, så är pro- 
grammet för stort för din da- 
tors minne och då får du fel- 


SKRIV GÄRNA 


till Christian Lindeberg om allt som har med hemdato- 
rer att göra: program, märken, problem, frågor etc. 
Adressen är: a. 
Hemdatorer, Arbetet, Box 125, 201 21 MALMO. 


Av Chris tian Lindeberg 
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meddelandet ”OUT OF ME- 
MORY ERROR”. 


Statistiska strängar 


Jag skall förklara vad som 
händer vid en ”garbage collec- 
tion”. Först måste vi skilja på 
statiska och =:dynamiska 
strängar. En statisk sträng 
hittar du i rad 10 i program- 
met X$="”A”. När man skapar 
en sträng så lägger datorn 
upp en variabel beskrivning 
(på engelska "variable 
descriptor”), som innehåller 
tre olika delar: 

1. Variabelnamnet 

2. Strängens längd 

3.En pekare till den adress 

där variabeln börjar 

Man kan se det på följande 
sätt: 

Namn: X$ 

Längd: 1 byte 

Adress: 2057 ($0809, den hexa- 
decimala adressen) 

Det betyder att bokstaven A 
ligger i adress 2057. Detta 
är en statistisk variabel, när 
den ligger i basicprogrammet. 
Om istället X$="CHRIS”+ 
”TIAN”, så måste datorn först 
bilda en sträng ”CHRIS- 
TIAN”, som den sedan lägger 
högst upp minnet med en va- 
riabel beskrivning på följande 
sätt: 

Namn: X$ 
Längd: 9 bytes 
Adress: 40949 ($9FF5) 

Detta är en dynamisk sträng 
och det är dessa, som skapar 
våra problem. 


Variabelbeskrivning 


INPUT och GET skapar alltid 
dynamiska strängar. Om vi i 
ett program har till exempel 
en rad INPUT A$. Första 
gången datorn kommer dit, så 
blir A$="”SVEN”. Datorn ska- 
par då en variabelbeskrivning 
på var ”SVEN” ligger i minnet. 
Nu kommer ett nytt namn 
i INPUT A$ och =- 
”STEFAN”. Vad händer? Va- 
riabelbeskrivningen kommer 
då att ha kvar namn = A$, men 
längden ändras till 6 bytes 
och pekaren till adressen var 
den ligger ändras, därför att 
datorn lägger inte namnet 
STEFAN över namnet SVEN 
utan läger namnet STEFAN 
under namnet SVEN. Skillna- 
den blir att det finns ingen 
pekare till namnet SVEN, 
men det ligger fortfarande 
kvar och tar upp plats i min- 
net. 


Rensa minnet 


Efter hand som A$ byter in- 
nehåll så flyttas pekarna ner- 
åt, för att de gamla namnen 
ligger kvar. När pekaren träf- 
far på pekaren för de numeri- 
ska variablerna, så märks 
detta genom att datorn upp- 
hör med sin verksamhet och 
börjar med sin ”garbage col- 
lection”. Vad datorn gör är att 
titta igenom alla variabelbe- 
skrivningar och spara dem, 
som är aktiva och slänga bort 
dem, som inte skall användas. 
Om man har otur kan datorn 
vara inaktiv upp till EN TIM- 
ME, för så lång tid kan det ta 
för att rensa upp minnet. 
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Reducera V 69-systemet 


Den här veckan och de 
följande skall jag ge efter 
för alla de som har skrivit 
och undrat hur man gör 
ett program för att redu- 
cera ett V 65-system. Det 
är svårt att få med alla 
varianter, men jag har 
gjort ett ganska stort pro- 
gram, som jag måste dela 
upp på tre veckor. 


Tekniken i programmet är att 
man i fyra lopp roterar hästarna 
enligt ett visst system. Man kan 
rotera 3, 6 eller 9 hästar eller 
från 2 till 8 hästar matematiskt 
garderade. Programmet räknar 
själv ut det totala systemet och 
talar även om till vilket radantal 
datorn reducerat systemet och 
vad det kostar. 

De roterande loppen tas ut en- 
ligt följande modell. Jag mark- 
erar med siffrorna 1, 2 och 3 för 
att visa principen. 
111222333 
123 
231 
312 


NN w = 
Ww-= N 
rm N OO 
= å 
NN NA 
o W WW 


I kan betyda häst 1 eller häst 1 
och 2 eller häst 1, 2 och 3. 

Detta är beroende på om man 
roterar 3, 6 eller nio hästar. 

När du skriver in programmet 
så tänk på att använda exakt 
samma radnummer, som jag 
har gjort för annars kan du inte 
komplettera med de nästa två 
veckorna. 

Den del av programmet som 
du får denna vecka tillåter dej 
att köra med säkra hästar och 
att matematiskt gardera med 2 
hästar. I fyra lopp kan du rotera 
med sex hästar. Om du skall ha 
1 säker i ett lopp så slå in även 
hästarna 2 och 3 eftersom da- 
torn även tar fram reserver. I 
fallet med 6 hästar så tar tex 
datorn ut häst 1 och 2 och skri- 
ver 3 och 4 som reserver. När 3 
och 4 tas ut blir 1 och 2 reserver. 

Tänk på att CLS är detsamma 
som PRINT CHR$(147) på Com- 
modoredatorer. Kontrollera med 
din instruktionsbok vad kom- 
mandot för att rensa skärm he- 
ter. Om du har en engelsk bok 
så slå upp på ”CLEAR 
SCREEN”. Lycka till med första 
delen. 


10 CLS 
15 DIM H$(6,15) 
20 PRINT:PRINT:PRINT 


TAB(10);' INMATNING AV HÄSTAR 
TILL V65” 

30 PRINT:PRINT TAB(10);' MATA 
IN HÄSTENS NUMMER OCH 
NAMN” 

40 PRINT:PRINT TAB(10);'I DE 
SEX OLIKA LOPPEN” 

50 PRINT:PRINT TAB(10);'OCH I 
DIN RANKING ORDNING” 

60 PRINT:PRINT TAB(10);"I VARJE 
LOPP SLÅR DU IN” 

70 PRINT:PRINT TAB(10);'MAX 15 
HÄSTAR ELLER MINDRE BERO- 
ENDE” 

80 PRINT:PRINT TAB(10);”PÅ VIL- 
KET SYSTEM DU VILL HA” 

90 FOR I1=1 TO 6 

100 PRINT:PRINT TAB(10);'LOPP 
NUMMER”:;I 

110 PRINT:PRINT TAB(10);'HUR 
MÅNGA HÄSTAR”; INPUT N 

120 FOR J=1 TON 

130 PRINT TAB(10);'HÄST NUM- 
MER'";J;:INPUT H$(L,J) 

135 NEXT J:NEXT I 

140 CLS:PRINT TAB(10);'REDUCE- 
RADE SYSTEM MED FÖLJANDE 
KOMBINATIONER” 

150 PRINT:PRINT TAB(10); HÄS- 
TARNA KAN SPIKAS GENOM ATT 
ANGE 1” 

160 PRINT:PRINT TAB(10);'3 ST 
HÄSTAR SOM ROTERAR EN OCH 
EN HETER 31,32,33 OCH 34” 

170 PRINT:PRINT TAB(10);'6 ST 
HÄSTAR SOM ROTERAR TVÅ 
OCH TVÅ HETER 61,62,63 OCH 64” 
180 PRINT:PRINT TAB(10); '9 ST 
HÄSTAR SOM ROTERAR TRE 
OCH TRE HETER 91,92,93 OCH 94” 
190 PRINT:PRINT TAB(10); MATE- 
MATISKA GARDERINGAR SKRIV 
2,3,4,5, 6, 7 ELLER 8” 

200 PRINT:PRINT TAB(10);' TÄNK 
PÅ ATT OM DU ANVÄNDER RO- 
TERANDE SYSTEM” 

210 PRINT:PRINT TAB(10);'MÅSTE 
ENTALSSIFFRORNA VARA I 
FÖLJD 31,62,93,64” 

220 D=1:G =1 

230 FOR I =1 TO 6 


240 PRINT:PRINT TAB(10);"VIL- 
KEN KOMBINATION I LOÖPP”;I- 
;;INPUT HS(I) 

250 IF HS(I)|10 THEN L=L+1 

260 IF LEN(STR$(HS(I))2 THEN 
D=D"VAL(MID$S(STR$(HS(1)),2,1)) 
270 IF LEN(STR$(HS(1)))2 THEN 
G=G"(VAL- 
(MIDS(STR$(HS(1)),2,1)))/3 

280 IF LEN(STR$(HS(I1)))=2 THEN 
D=D"HS(I) 

290 IF LEN(STR$(HS(1)))=2 THEN 
G=G"HS(I) 

300 NEXT I 

310 PRINT:PRINT TAB(10);”SYSTE- 
MET ÄR PÅ”;D” RADER OCH RE- 
DUCERAS TILL”;G"9"RADER” 

315 IF L=6 THEN PRINT:PRINT 
TAB(10);'OCH KOSTAR”G".T"'KRO- 
NOR”:GOTO 330 

320 PRINT:PRINT TAB(10); OCH 
KOSTAR”G"9".T'KRONOR” 

330 PRINT:PRINT TAB(10);:INPUT 
"ÄR DETTA OK (J/NYy';Q$ 

340 IF Q$="J" OR Q$="j" THEN 
360 

350 GOTO 140 

360 FOR F=1 TO 9 

370 CLS:PRINT:PRINT”LAPP 
NR."”;F 

380 PRINT 

390 FOR 1=1 TO 6 

400 IF HS(I)=1 THEN GOSUB 660 
410 IF HS(I)=2 THEN GOSUB 700 
420 IF HS(I)=63 THEN GOSUB 750 
430 IF HS(I)=64 THEN GOSUB 1120 
440 IF HS(I)=91 THEN GOSUB 1490 
450 IF HS(I)=62 THEN GOSUB 1860 
460 IF HS(I)=61 THEN GOSUB 2230 
470 IF HS(I)=92 THEN GOSUB 2610 
480 IF HS(I)=93 THEN GOSUB 2980 
490 IF HS(I)=94 THEN GOSUB 3350 
500 IF HS(I)=31 THEN GOSUB 3720 
510 IF HS(I1) =32 THEN GOSUB 4090 
520 IF HS(I1)=33 THEN GOSUB 4460 
530 IF HS(I) =34 THEN GOSUB 4830 
540 IF HS(I)=3 THEN GOSUB 5210 
550 IF HS(I)=4 THEN GOSUB 5250 
560 IF HS(I)=5 THEN GOSUB 5300 
570 IF HS(I)=6 THEN GOSUB 5370 
580 IF HS(I)=7 THEN GOSUB 5450 
590 IF HS(I)=8 THEN GOSUB 5540 
600 PRINT:NEXT I 

610 PRINT 

620 PRINT TAB(10); "TRYCK PÅ RE- 
TURN";:INPUT Q$ 

630 IF L=6 THEN F=9 

640 NEXT F 

650 END 

660 PRINT TA B(10); H$(1,1); 

670 PRINT TAB(50); H$(1,2) 

680 PRINT TA B(50); H$(1,3) 

690 RETURN 

700 PRINT TA B(10); H$(1,1); 

710 PRINT TAB(50); H$(1,3) 

720 PRINT TAB(10); H$(1,2); 

730 PRINT TA B(50); H$(1,4) 

740 RETURN 

750 ON F GOTO 
760,800,840,880,920,960,1000,1040,1080 
760 FOR J=3 TO 4 

7710 PRINT TAB(10); H$(1,J);:PRINT 
TAB(50);H$(1,J-2) 

780 NEXT 

790 GOTO 1110 

800 FOR J=5 TO 6 

810 PRINT TAB(10); H$(1,J);:PRINT 
TAB(50);H$(1,J-4) 

820 NEXT 

830 GOTO 1110 

840 FOR J=1 TO 2 

850 PRINT TAB(10); H$(1,J);:PRINT 
TAB(50);H$(1,J + 2) 

860 NEXT 

870 GOTO 1110 

880 FOR J=5 TO 6 

890 PRINT TAB(10); H$(1,J);:PRINT 
TAB(50);H$(1,J-4) 

900 NEXT 

910 GOTO 1110 

920 FOR J=1 TO 2 

930 PRINT TAB(10); H$(1,J);:PRINT 
TAB(50);H$(LJ + 2) 

940 NEXT 

950 GOTO 1110 

960 FOR J=3 TO 4 

970 PRINT TAB(10); H$(1,J);:PRINT 
TAB(50);H$(1,J-2) 

980 NEXT 

990 GOTO 1110 

1000 FOR J=1 TO 2 

1010 PRINT TAB(10); 
H$(1,J);:PRINT TAB(50);H$(LJ + 2) 
1020 NEXT 

1030 GOTO 1110 

1040 FOR J=3 TO 4 

1050 PRINT TAB(10); 
H$(1L,J);:PRINT TAB(50);H$(1,J-2) 
1060 NEXT 

1070 GOTO 1110 

1080 FOR J=5 TO 6 

1090 PRINT TAB(10); 
H$(1L,J);:PRINT TAB(50);H$(1,J-4) 
1100 NEXT 

1110 RETURN 


1120 ON F GOTO 
1130,1170,1210,1250,1290,1330,1370, 
1410,1450 

1130 FOR J=5 TO 6 

1140 PRINT TAB(10); 


H$(L,J);:PRINT TAB(50);H$(1,J-4) 
1150 NEXT 

1160 GOTO 1480 

1170 FOR J=1 TO 2 

1180 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(LJ + 2) 


1190 NEXT 
1200 GOTO 1480 
1210 FOR J=3 TO 4 
1220 PRI 
H$(LJ);:PRINT TAB(50);H$(L,J-2) 
1230 NEXT 

1240 GOTO 1480 
1250 FOR J=3 TO 4 
1260 PRINT 
H$(LJ);:PRINT TAB(50);H$(1,J-2) 
1270 NEXT 

1280 GOTO 1480 
1290 FOR J=5 TO 6 
1300 PRINT 
H$(1L,J);:PRINT TAB(50);H$(1,J-4) 
1310 NEXT 

1320 GOTO 1480 
1330 FOR J=1 TO 2 
1340 PRINT 
H$(LJ);:PRINT TAB(50);H$(LJ +2) 
1350 NEXT 

1360 GOTO 1480 
1370 FOR J=1 TO 2 
1380 PRINT ( 
H$(LJ);:PRINT TAB(50);H$(1,J +?) 
1390 NEXT 

1400 GOTO 1480 

1410 FOR J=3 TO 4 

1420 PRINT TAB(10 
H$(LJ);:PRINT TAB(50);H$(1,J-2) 
1430 NEXT 

1440 GOTO 1480 

1450 FOR J=5 TO 6 

1460 PRINT TAB(10 
H$(LJ);:PRINT TAB(50);H$(1,J-4) 
1470 NEXT 

1480 RETURN 

1860 ON 
1870,1910,1950,1990,2030,2070,2110, 
2150,2190 

1870 FOR J=1TO 2 
1880 PRINT 
H$(LJ);:PRINT TAB(50);H$(L,J + 2) 
1890 NEXT 

1900 GOTO 2220 
1910 FOR J=3 TO 4 
1920 PRINT 
H$(LJ);:PRINT TAB(50);H$(1,J-2) 
1930 NEXT 

1940 GOTO 2220 
1950 FOR J=5 TO 6 
1960 PRINT 
H$(LJ);:PRINT TAB(50);H$(1,J-4) 
1970 NEXT 


TAB(10); 


TAB(10); 


TAB(10); 


TAB(10); 


TAB(10); 


TAB(10); 


TAB(10); 


TAB(10); 
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1980 GOTO 2220 

1990 FOR J=1 TO 2 

2000 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(LJ +2) 
2010 NEXT 

2020 GOTO 2220 

2030 FOR J=3 TO 4 

2040 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J-2) 
2050 NEXT 

2060 GOTO 2220 

2070 FOR J=5 TO 6 

2080 PRINT TAB(10 
H$(LJ);:PRINT TAB(50);H$(1,J-4) 
2090 NEXT 

2100 GOTO 2220 
2110 FOR J=1TO2 
2120 PRINT TAB(10); 
2130 NEXT 

2140 GOTO 2220 

2150 FOR J=3 TO 4 

2160 PRINT TAB(10); 
H$(LJ);:PRINT TA B(50);H$(1,J-2) 
2170 NEXT 

2180 GOTO 2220 

2190 FOR J=5 TO 6 

2200 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J-4) 
2210 NEXT 

2220 RETURN 

2230 REM 

2240 ON F GOTO 
2250,2290,2330,2370,2410,2450,2490, 
2530,2570 

2250 FOR J=1 TO 2 

2260 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(L,J +2) 
2270 NEXT 

2280 GOTO 2600 


H$(LJ);:PRINT TAB(50); .HS(LJ.+2) | 


2290 FOR J=1 TO 2 

2300 PRINT TAB(10); 
H$(LJ);:PRINT TA B(50);H$(1,J + 2) 
2310 NEXT 

2320 GOTO 2600 

2330 FOR J=1TO 2 

2340 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J + 2) 
2350 NEXT 

2360 GOTO 2600 

2370 FOR J=3 TO 4 

2380 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J-2) 
2390 NEXT 

2400 GOTO 2600 

2410 FOR J=3 TO 4 

2420 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J-2) 
2430 NEXT 

2440 GOTO 2600 

2450 FOR J=3 TO 4 

2460 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J-2) 
2470 NEXT 

2480 GOTO 2600 

2490 FOR J=5 TO 6 

2500 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J-4) 
2510 NEXT 

2520 GOTO 2600 

2530 FOR J=5 TO 6 

2540 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J-4) 
2550 NEXT 

2560 GOTO 2600 

2570 FOR J=5 TO 6 

2580 PRINT TAB(10); 
H$(LJ);:PRINT TAB(50);H$(1,J-4) 
2590 NEXT 

2600 RETURN 


Den här veckan fortsätter 
jag med programmet för 
att göra reducerade sy- 
stem till V 65. Hela pro- 
grammet är så långt att 
det måste delas upp på 
tre veckor. Systemet går 
ut på att man delar upp 
ett stort system på nio st 
V 65-kuponger och låter 
datorn «reducera = till 
lämpligt antal rader. 
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Reducerat V 65-system (2Y 


I systemet finns alla varianter 
från tre till nio hästar, vidare 
finns möjligheten att använda 
matematiska garderingar från 
en till åtta hästar. 


Förra veckan fick du början på 
programmet med två säkra häs- 
tar och sex hästar i övriga lopp. 
Denna vecka kommer du att få 
en komplettering med att rotera 
nio hästar i fyra lopp med två 
säkra. Kom ihåg att använda 
samma radnummer, som jag 
har gjort för annars stämmer 


inte programmen när du sätter 
ihop dem. 


När du skriver in det nya pro- 
grammet så laddar du först in 
det program du skrev förra vec- 
kan, sedan börjar du att knappa 
in denna vecka program. När du 
är klar så sparar du program- 
met. Nästa vecka kommer jag 
med slutet på programmet och 
då får du de matematiska gra- 


deringarna och rotering av tre 


hästar. 











em 
UARIORER 


ON F GOTO 2990,3030, 3070, 3110,3150,3190,3230, 3270, 3310 


H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I,J-3) 


N<=2 


N<=2 


N<=2 


N<=2 


N<=2 


N<=2 


N<=2 


N<=2 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


TAB(50);H$(I,J+3) 


TAB(50);H$(I,J-6) 


TAB(50);H$(I,J+3) 


TAB(50);H$(I,J-3) 


TAB(50);H$(I.J+3) 


TAB(50);H$(I,J-3) 


TAB(50);H$(I1,J-6) 


ON F GOTO 3360, 3400, 3440, 3480, 3520, 3560, 3600, 3640, 3680 


> 2980 

1500 FÖR ed TRO T300: 15404 15804162041660:1700,1740:1780-1820 2990 FOR J=4 TO 6 

1510 PRINT TAB(10); H$(I,J)::N=N+1:1IF N<=2 THEN PRINT TAB(50);:H$(I.J+3) 3000 PRINT TAB(10); 

1520 NEXT 3010 NEXT 

1530 GOTO 1850 3020 GOTO 3340 

1540 FOR J=1 TO 3 3030 FOR J=7 TO 9 

1550 PRINT TAB(10):; H$(I,J);:;:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I,J+3) 3040 PRINT TAB(10); H$(I, J);::N=N+1:1IF 
1560 NEXT 3050 NEXT 

1570 GOTO 1850 3060 GOTO 3340 

1580 FOR J=1 TO 3 3070 FOR J=1 TO 3 

1590 PRINT TAB(10); H$(I,J);:N=N+1:1IF N<=2 THEN PRINT TAB(50):H$(1,J+3) 3080 PRINT TAB(10); H$(I,J);:N=N+1:1IF 
1600 NEXT 3090 NEXT 

1610 GOTO 1850 3100 GOTO 3340 

1620 FOR J=4 TO 6 3110 FOR J=7 TO 9 

1630 PRINT TAB(10):; H$(I,J);:N=N+1:1IF N<=2 THEN PRINT TAB(50);H$(I1,J-3) 23120 PRINT TAB(10); H$(I,J);:N=N+1: IF 
1640 NEXT 3130 NEXT 

1650 GOTO 1850 3140 GOTO 3340 

1660 FOR J=4 TO 6 3150 FOR J=1 TO 3 

1670 PRINT TAB(10); H$(I,J);::N=N+1:IF N<=2 THEN PRINT TAB(50);:H$(I,J-3) 3160 PRINT TAB(10):; H$(I,J);:N=N+1:IF 
1680 NEXT 3170 NEXT 

1690 GOTO 1850 3180 GOTO 3340 

1700 FOR J=4 TO 6 3190 FOR J=4 TO 6 

1710 PRINT TAB(10):; H$(I,J);:N=N+1:1IF N<=2 THEN PRINT TAB(50);H$(I,.J-3) 3200 PRINT TAB(10); H$(I,J);:N=N+1:IF 
1720 NEXT 3210 NEXT 

1730 GOTO 1850 3220 GOTO 3340 

1740 FOR J=7 TO 9 3230 FOR J=1 TO 3 

1750 PRINT TAB(10); H$(I,J);:N=N+1:1IF N<=2 THEN PRINT TAB(50);H$(1I,.J-6) 3240 PRINT TAB(10): H$(I,J);:N=N+1:IF 
1760 NEXT 3250 NEXT 

1770 GOTO 1850 3260 GOTO 3340 

1780 FOR J=7 TO 9 3270 FOR J=4 TO 6 

1790 PRINT TAB(10); H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50):H$(I,J-6) 3280 PRINT TAB(10): H$(I,J);:N=N+1:IF 
1800 NEXT 3290 NEXT 

1810 GOTO 1850 3300 GOTO 3340 

1820 FOR J=7 TO 9 3310 FOR J=7 TO 9 

1830 PRINT TAB(10):; H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I,J-6) 3320 PRINT TAB(10); H$(I,J);:N=N+1:IF 
1840 NEXT 3330 NEXT 

1850 N=0: PRINT: RETURN 3340 N=0: PRINT: RETURN 

2610 ON F GOTO 2620, 2660, 2700,2740,2780,2820,2860,2900,2940 3350 

2620 FOR J=1 TO 3 3360 FOR J=7 TO 9 

2630 PRINT TAB(10); H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(1,J+3) 3370 PRINT TAB(10): H$(I,J); 

2640 NEXT 3380 NEXT 

2650 GOTO 2970 3390 GOTO 3710 

2660 FOR J=4 TO 6 3400 FOR J=1 TO 3 

2670 PRINT TAB(10): H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I,J-3) 3410 PRINT TAB(10); H$(I,J);:N=N+1:1F 
2680 NEXT 3420 NEXT 

2690 GOTO 2970 3430 GOTO 3710 

2700 FOR J=7 TO 9 3440 FOR J=4 TO 6 

2710 PRINT TAB(10); H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I.J-6) 3450 PRINT TAB(10); H$(I,J);:N=N+1:IF 
2720 NEXT 3460 NEXT 

2730 GOTO 2970 3470 GOTO 3710 

2740 FOR J=1 TO 3 3480 FOR J=4 TO 6 

2750 PRINT TAB(10); H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I,J+3) 3490 PRINT TAB(10); H$(I,J);:N=N+1:IF 
2760 NEXT 3500 NEXT 

2770 GOTO 2970 3510 GOTO 3710 

2780 FOR J=4 TO 6 3520 FOR J=7 TO 9 

2790 PRINT TAB(10):;: H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I,J-3) 3530 PRINT TAB(10); H$(I,J);:N=N+1:1IF 
2800 NEXT 3540 NEXT 

2810 GOTO 2970 3550 GOTO 3710 

2820 FOR J=7 TO 9 3560 FOR J=1 TO 3 

2830 PRINT TAB(10); H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I,J-6) 3570 PRINT TAB(10): H$(I,J);:N=N+1: IF 
2840 NEXT 3580 NEXT 

2850 GOTO 2970 3590 GOTO 3710 

2860 FOR J=1 TO 3 3600 FOR J=1 TO 3 

2870 PRINT TAB(10): H$(I,.J);:N=N+1:IF N<=2 THEN PRINT TAB(50):H$(I1,J+3) 3610 PRINT TAB(10); H$(I,J);:N=N+1:IF 
2880 NEXT 3620 NEXT 

2890 GOTO 2970 3630 GOTO 3710 

2900 FOR J=4 TO 6 3640 FOR J=l4 TO 6 

2910 PRINT TAB(10): H$(I,J);:N=N+1:IF N<=2 THEN PRINT TAB(50);H$(I1I,J-3) 3650 PRINT TAB(10); H$(I,J);:N=N+1:IF 
2920 NEXT 3660 NEXT 

2930 GOTO 2970 3670 GOTO 3710 

2940 FOR J=7 TO 9 3680 FOR J=7 TO 9 

2950 PRINT TAB(10); H$(I,J);:N=N+1:1IF N<=2 THEN PRINT TAB(50);H$(I,J-6) 3690 PRINT TAB(10); H$(I,J);:N=N+1:IF 
2960 NEXT 3700 NEXT 

2970 N=0: PRINT: RETURN 3710 N=0: PRINT: RETURN 


N<=2 


N<=2 


N<=2 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


IN=N+1: IF N<=2 THEN PRINT TAB(50);:H$(I,J-6) 


TAB(50);H$(I, 


J+3) 


TAB(50);:H$(I,J-3) 


TAB(50);H$(I,J-3) 


TAB(50);H$(I,J-6) 


TAB(50);H$(I,J+3) 


TAB(50);H$(I,J+3) 


TAB(50);H$(I,J-3) 


TAB(50);H$(I,J-6) 


O 
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Banta programmen med matriser 


Jag skall försöka krypa upp ur brevhögarna. När 
jag startade med V 65-systemen trodde jag inte 
att intresset var så stort. 

Jag skall visa en lösning, som jag fått ifrån en lä- 
sare i Ystad. Han har bantat mitt program ner 
till 2746 bytes genom att använda matriser och 
DATA-satser. 





em 
DAIORER 


I raderna 40 till 70 ligger tre hästar. 
matrisen, som ger ordningen Raderna 830—860 roterar 
på de olika kupongerna. I ra- sex hästar. 
den 90 ligger matrisen som Raderna 870—900 roterar 
tar ut reserver beroende på nio hästar. 


vilket system man har be- De matematiska systemen 


gärt. ligger i raderna 910 till 970. 

De olika roterande syste- Jag har numrerat om pro- 
men ligger i = raderna grammet och ändrat på en 
790 — 900. del små saker. 


Raderna 790—0820 roterar Mitt första program var uppe 





1 cirka 15 tusen bytes och lä- 
sarens är nere i 2746 bytes. 
För er som programmerar 
mycket kan det vara en bra 
lärdom att studera våra pro- 
gram. Det händer ofta att 
man genom att arbeta i mat- 
riser kan minska ett pro- 
gram till mindre än hälften. 
Jag kommer lite längre fram 
att visa exempel på hur man 
arbetar med matriser både 
tvådimensionellt, men även 
med flerdimensionella ma- 
triser. Nu till en del frågor, 
som har kommit den här 
veckan. 


En läsare i Höganäs undrar 
om han kan skriva av pro- 
grammet direkt till en Com- 
modore PC-20 med MS-dos. 
Svaret är ja. Mina program 
är skrivna på Commodore 
PC 20. 


En annan läsare i Lands- 
krona har en AMSTRAD 
PCW 8256, som arbetar un- 
der CP/M 3.0. Datorn är inte 
kompatibel med en PC-dator. 
När det gäller frågan om ”co- 
pyright”, så får man inte pu- 
blicera ett program från en 


annan tidning utan att ha 
tillstånd. 


Byta program 


Jag vill gärna utveckla det 
här med att byta program i 
basic eller andra språk mel- 
lan datorer som inte är kom- 
patibla. Jag har många gång- 
er bytt program mellan olika 
icke kompatibla datorer. Vad 
som behövs är att man har 
ett modem och att man kan 
spara sin programfil i AS- 
CII-format. I en hel del ba- 
siedialekter kan man spara 
sitt program genom att efter 
sista citationstecknet skriva, 
A. Så här, SAVE ”PRO- 
GRAMNAMN”, A och nu lag- 
rar datorn det som ASCII- 
tecken. Nu kan man skicka 
via telefon till en annan da- 
tor och köra den i sitt basic- 
språk. Ar man lite teknisk 
kan man enkelt göra en ka- 
bel mellan datorernas seriel- 
la port och köra över det 
ganska snabbt. Det går bra 
att köra ifrån en VIC-64 till 
en PC, men inte tvärtom för 
64:an kan inte läsa ASCII- 


format. När man för över till 
en ASCII-fil på 64:an så gör 
man så här. 

OPEN 8,8,8, ”PROGRAM- 


NAMN,S.W”:CMD = 8LIST 
Tryck på RETURN 
PRINT + 8 


CLOSE 8 Tryck på RE- 
TURN 

Nu sparar datorn ditt pro- 
gram, som en ASCII-fil. 

Till slut skall jag ta en frå- 
ga från en läsare i Eslöv. 
Hans problem är att han har 
en ABC-80 och vill skriva in 
V 65-programmet. Pröva det 
tidigare beskrivna program- 
met från läsaren i Ystad så 
har du inga problem med 
minnesutrymme. En sak du 
måste man tänka på ABC-80 
har en lite annorlunda dia- 
lekt. Det är därför man får 
ERR 11 när man försöker 
skriva in mitt program. På 
din datorn går det inte att 
skriva INPUT-satser med 
text så rad 430 ändras till: 

430 —  PRINT:PRINT 
TAB(10); ”AR DETTA OK (J/ 
N)";:INPUT Q$ 

På alla ställe det står STR$ 
ändras till NUM$. 


10 CLS 490 FOR 1=1i TO 6 

20 DIM H$(6,15) ,A11(4,9) .A2(4,9),A3(4,9),P (6,30) 500 PRINT 1; 

40 DATA 1,1,1,2,2,2,5,5,5 520 IF HS(1)=2 THEN GOSUE 660 

30 DATA 1,2 fa lsdaa la 2o 3 530 IF LEN(STR$(HS(1)))>2 THEN GOTO 710 

50 DATA 233,1, 5s 152,1, 20 > 540 IF HS(1)>=3 AND HS(1D><=8 THEN GOSUE 910 

70 DATA 3,1,2,2,3,1,1,2,3 200 on TA 

80 FOR Kk=1 TO 3:FOR L=1 TO 3: READ A1tlK,L),A2(K,L) ,A3(K,L):NEXT L:NEXT K : 

90 DATA 1,1,1,2,2,3,3,2,3,2,3,4,1,4,6,3,-2,-3,3,5,7,1,6,9,2,-4,-6 560 PRINT 

100 PRINT: PRINT: PRINT TAR (10); "INMATNING AV HÄSTAR TILL VAS" 370 INPUT O$ 

110 PRINT: PRINT TAB (10); "MATA IN HÄSTENS NUMMER OCH NAMN" 290 For? THEN F=9 

120 PRINT:PRINT TAB(10):"1 DE SEX OLIKA LOPPEN" 00 NEXT F 

130 PRINT: PRINT TAB(10); "OCH I DIN RANKING ORDNING" ELO END 

140 PRINT:PRINT TAB(10):"I VARJE LOPP SLÅR DU IN 020 PRINT TAB(10): H$(I, 1): 

150 PRINT:PRINT TAB(10): "MAX 15 HÄSTAR ELLER MINDRE BEROENDE" ao PRINT TABtSO): Hel 2) 

160 PRINT: FRINT TAE (10); "FÅ VILKET SYSTEM DU VILL HA" 640 PRINT TAB (50) 3 H$ (I, 3) 

180 PRINT TAB (10) "LOPP NUMMER" ;I 660 PRINT TAB(10): H$(I,1): 

190 PRINT TAB (10); "HUR MANGA HÄSTAR"; : INPUT N 670 PRINT TAB(50)3 H$(I.3) 

200 FOR J=1 TO N : . 

210 PRINT TAB (10): "HÄST NUMMER" :J;: INFUT H$(I,J) oc PRINT TAB(SO) Hela 

220 NEXT I 700 RETURN 

230 NEXT I 210 Z-7e1 

240 CLS:FRINT TAB (10); "REUCERADE SYSTEM MED FöLJANDE KOMBINATIONER" 0 VY-VAL (LEFTSISTRS (HS (I) ) . 27) 

250 PRINT:FPRINT TAB(10); "HÄSTARNA KAN SPIKAS GENOM ATT ANGE 1i" 230 1F Y=3 THEN GUSUB 790 ELSE 750 

260 PRINT:PRINT TAB (10);"3 ST HÄSTAR SOM ROTERAR EN OCH EN HETER 31,32,33 OCH 34 2å0 GOTO 550 

270 PRINT:FRINT TAB(10);"6 ST HÄSTAR SOM ROTERAR TVÅA OCH TVA HETER 61,62,63 OCH Jäo dte ss GOSUR 850 ELSE 770 

64" a 770 GOSUB 870 

280 PRINT:PRINT TAB(10);"9 ST HÄSTAR SOM ROTERAR TRE OCH TRE HETER 91,92,93 OCH 240 GOTO 550 

94" . 

290 PRINT:PRINT TAB (10); "MATEMATISKA GARDERINGAR SKRIV 2, 3, 4, 5, 6, 7 ELLER 8" 200 PRINT TAR(SO) SR n ÅS UL ALIAGI FF) 21) 

300 PRINT:PRINT TAB (10); "TÄNK PÅ ATT OM DU ANVÄNDER ROTERANDE SYSTEM" 10 PRINT TAB (50) "UR" i HS(I ALlACZ.F) 3) 

310 PRINT: PRINT TAB(10); "MASTE ENTALSSIFFRORNA VARA I FöLJD 31,62,93,64" 20 RETURN AE : na 

— OR i toa 830 FOR J=A2(A(Z,F),. 1) TO A2(A(Z,P),2) 

340 PRINT: PRINT TAB (10); "VILKEN KOMBINATION I LOPP";1I;: INPUT HS(I) 50 NSINT TAB (10) 3H$ (1,00) 5 TAR(9025 RYSHEC(T, JFAR(A (ZAPF) 25300 
350 IF HS(1)<10 THEN L=L+1 00 RETURN 

360 IF LEN(STR$(HS(1)))>2 THEN D=DXVAL (MIDS(STR$(HS(1)),2,1)) 270 N=0:FOÖR J=A3(ACZ,F), 1) TO AZIACZ,F), 2) 

370 IF LEN(ISTR$(HS(I1)))>2 THEN G=Gk(VAL(MIDS (STR$ (HS (I)),2,1)))/3 080 PRINT TABCLO) :H$tI.J);iN=N+1: IF N<s2 THEN PRINT TAB(50):"R"sH$ 
380 IF LEN(STR$ (HS (1)))=2 THEN D=DxHS (I) I JAAS(ALZ.F ).30A PONT 
390 IF LEN(STR$(HS(1)))=2 THEN G=GXHS(I) a90 BRA NN 

400 NEXT I 3000 RETURN 

410 PRINT:FRINT TAB (10); "SYSTEMET ÄR PÅ";D" RADER OCH REDUCERAS TILL"; GX9"RADER" 010 FOR J=1 TO HSU) 

420 PRINT:PRINT TAB (10) 3: "OCH KOSTAR"GI9x. 7"KRONOR" 020 PRINT TABUO):H$CI. J)s 

430 PRINT: PRINT TAR (10) 3: INFUT CAR DETTA OK (J/N) ",;0$ 930 IF J=HS(I)-1 THEN PRINT TAB (SO); "R"sH$(I,HS(D+1); 
440 IF 0$="J" OR Q$="j" THEN 460 940 IF J=HS(1) THEN PRINT TAB(5O0):"R":H$(I,HS(1)+2); 
450 GOTO 240 oso PRINT 

460 FOR F=1 TO 9 020 NEXT J 

470 CLS: PRINT: PRINT"LAPP NR. "iF 070 RETURN 


480 


FRINT 


Datorn 
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hjälper 


dig med matten 


Den här veckan skall jag 
visa ett program om ma- 
tematik. Jag fick ett brev 
från Tobias W i Kävlinge. 
Tobias håller på att göra 
en del nyttoprogram till 
sin VIC 64:a och skulle 
gärna vilja komplettera 
med ett matteprogram. 


Jag är lite undrande över ditt 
sätt att beskriva vad du vill ha 
men jag har förutsatt att du 
strök under lite för många tal i 
ditt brev. I annat fall så använ- 
der du datorn bara som en bit 
papper. 


Komprimerat 


Jag har gjort ett program, som 
tillåter träning av huvudräkning 
till vilken övre gräns som helst. 
Själva räkneprogrammet är 
komprimerat. Man kan göra det 
större genom att skriva om alla 
rutinerna fyra gånger och ändra 
räknesätten. Jag skall förklara 
programmet, som jag gjort. 


På rad 10 och 20 har jag an- 
vänt mig av funktionen DEF 
FN, som de flesta är lite rädda 
för att använda. Jag skall för- 
klara hur den fungerar. I rad 10 
och 20 har jag definierat funk- 
tionen DEF FNA(X- 
)=(INT(RND"X)+1). Detta bety- 
der att när jag sedan i program- 
met skriver TALI= 
FNA(X), så letar datorn reda på 
vad X har för värde och sätter in 
detta värde i den fördefinierade 
funktionen i rad 10. Själva funk- 
tionen INT(RND"X)+1 ger ett 
värde mellan 1 och X. Tänk på 
att på VIC-datorerna skriver du 
inte RND utan RND(0). 


Högsta gräns 
Rad 30 tömmer skärmen. Skriv 






PRINT CHR$(147) på VIC-arna. 
Har du en annan dator så kon- 
trollera med din instruktions- 
bok. 


Rad 40 till 110 förklarande text 
till användaren av programmet. 
Rad 120 hoppar till rad 350 när 
man vill avsluta och ha reda på 
sitt resultat. 


Raderna 130 till 170 förklarar 
för användaren hur man skall 
sätta sina gränser. Talet du slår 


in i rad 170 blir den högsta grän- 
sen för talen till addition, sub- 
traktion och multiplikation. När 
det gäller division så måste jag 
svänga lite på variablerna för 
att jag skall få heltal. Detta gör 
att när jag skall köra division så 
måste jag tänka på att det tal 
jag slår in i rad 170 blir kvadra- 
tiskt. Om du slår in 10 så blir di- 
na högsta divisioner 100 delat 
med något. Om du vill ha olika 
gränser på de två talen så ändra 
rad 170 till: 

170 INPUT X,Y 


Kommatecken 


Men nu måste du slå in två tal 
med ett kommatecken emellan. 

Rad 180 tömmer skärmen. 

Rad 190 ger informationen att 
när du vill sluta så slå in —99. 

Rad 200 räknar hur många tal 
du har gjort. 

Rad 210 bestämmer de två oli- 
ka talen. 

Rad 220 till 250 IF-satser, som 


SUETRAKTION" 
MULTIFLIFKATION"” 


AVSLUTA" 


Av Christian Lindeberg 






Hem 


datorn hoppar till beroende på 
vad du valde i raderna 60 till 90. 
Rad 250 ser lite annorlunda ut 
— detta beror på att jag vill ha 
heltal i mina divisioner. Jag tar 
först reda på vad multiplikatio- 
nen med TAL1 och TAL2 blir 
och lägger svaret i variabeln W. 
Sedan i rad 290 delar jag W med 
TALI1I och svaret blir TAL2. Det 
är därför jag har skrivit i slutet 
på rad 250 SVAR =TAL2. 


Tre försök 


Rad 260 till 290 skriver ut de oli- 
ka matematiska frågeställning- 
arna beroende av vad jag har 
valt i raderna 60 till 90. 

På rad 300 svarar du datorn 
vad du tror att svaret blir. 

Rad 310 kontrollerar om du 
vill gå tillbaka till huvudmenyn. 

Rad 320 kontrollerar om ditt 
svar är rätt och låter dig fortsät- 
ta med en ny uppgift. 

På rad 330 här hamnar man 
om man har gjort fel. Datorn 
tillåter tre försök innan den ta- 
lar om det rätta svaret och låter 
dig gå vidare. 

Rad 340 ett hopp till rad 220 
för ett nytt problem. 

Rad 350 tömmer skärmen. 

Rad 360 till 370 talar om hur 
duktig du har varit. Här kan du 
själv komplettera med rader 
som ger dig olika mycket beröm 
beroende på hur duktig du har 
varit. 


PRINT: PRINT TAR (10) "VAD ÖNSKAS": INFUT O9$ 


TAR (10) "BESTÄM STORLEKEN FÅ TALEN" 

TAB (10) "SKRIV TALENS HöGSTA GRÄNS" 

TAR (10) "VID DIVISION ELIR GRÄNSEN TALET" 
TAR (10) "MULTIFLICERAT MED SIG SJÄLV "3 


TAE (10) "NÄR DU VILL SLUTA SÅ SLA IN -99" 


10 DEF FN ADD =(INTIRNDXAX) +1) 
20 DEF FN E(V)= (INT IRNDXY) +1) 
30 CLS 

40 FRINT:FRINT TAR (10) "HUVUDRAFKNING" 
Sö PRINT: FRINT 

60 FRINT TAEBE(10)'"1. ADDITION" 
70 PRINT: FRINT TAB (10) "2. 

80 FRINT:FRINT TAR (10) "3. 

90 PRINT: FRINT TAR(10)"4,. DIVISION" 
100 PRINT: FRINT TAB (10) "5. 
110 

120 IF VAL (O$)=5S THEN 350 

130 PRINT: FRINT 

140 FRINT: PRINT 

150 PRINT: PRINT 

160 FRINT:FRINT 

170 INFUT X:Y=X 

180 CLS 

190 FRINT: FRINT 

200 N=N+1 

210 TAL1I=FNA (XX): TALZ=FNE (Y) 


220 IF VAL (0$)=1 THEN SVAR=TAL1+TALEZ 

230 IF VAL (Q0$)=2 THEN SVAR=TAL1-TALS 

240 IF VAL (0$)=3 THEN SVAR=TAL1IKTALZ 

250 IF VAL (0$)=4 THEN W=ETAL1XTAL2: SVAR=TALZ 

260 IF VAL (0O$)=1 THEN FRINT: PRINT TAB (10) "VAD BLIR"TAL1I"+"TALE2:; 

270 IF VAL (0$)=2 THEN FRINT: PRINT TAR(10) "VAD EBLIR"TALI"-"TALS: 

280 IF VAL (0$)=3 THEN FRINT:PFRINT TAR (10) "VAD BLIR"TALI"X"TALE2: 

290 IF VAL (0$)=4 THEN PRINT: PRINT TAR (10) "VAD ELIR"W"/"TAL1; 

300 INPUT TEST 

310 IF TEST=-99 THEN 30 

320 IF TEST=SVAR THEN FRINT:FRINT TAB (10) "RÄTT" 3: INFUT W$: GOTO 
180 

330 PRINT: FRINT TAB (10) "FEL FÖRSÖK IGEN": : FEL=FEL+1: IF FEL=2X 


THEN FRINT: PRINT TA 


E(10) "RÄTT SVAR ÄR": SVAR: I FEL=O: F=F+1: INFUT W$: GOTO 180 


340 
350 
560 
370 


GOTO 


220 


CLS 


PRINT: FRINT:FRINT TAB (10) 


"DU HADE"N-F"RÄTT OCH"F"FEL" 


FRINT: FRINT TAR (10) "TACK FÖR DENNA GANG" 


LEDIGA LORDAG 10 oktober 1987 


Lekande lätt 


med matriser 


Den här veckan skall jag 
tala om matriser. Ni 
kommer kanske ihåg 
programmet om reduce- 
rade V 653-system, där 
programmet gick att ban- 
ta radikalt genom att an- 
vända matriser i stället 
för att upprepa liknande 
programdelar ett flertal 
gånger. 

Vad är en matris? Matriser är 
något, som man använder i ma- 
tematiken när man skall lösa 
ekvationssystem med många 
obekanta. Vi skall inte lösa ma- 
tematiska problem utan se mat- 
risen från en annan vinkel. Jag 
tänkte ta exemplet med ett re- 
gister där man har namn, 
adress, postnummer, postadress 
och telefonnummer. När man 
gör ett register kan man använ- 
da variblerna E$(I), A$(I1), P$(1I), 
PAS$(I) och T$(I). För att se till- 
hörigheten skriver jag så här: 


Namn Adress Postadress 


E$(1) A$(I)  PS$(I) 





Det vi har här är en matris 
med kolumnerna NAMN, 
ADRESS, POSTADRESS, 
POSTNUMMER och TELEFON. 
Raderna blir sedan varje namn 
med uppgifter om personen. An- 
talet rader blir lika med antalet 
namn. Nu har vi utgångspunk- 
ten för en matris, nämligen en 
del kolumner och en del rader. 
Nu skall vi se på problemet ur 
en annan vinkel. 


Adress 
AS(I) 


Namn 


E$(I) PS$(1) 


Kolumn Kolumn Kolumn 3 
E$(1,3) 


1 2 
E$(1,1) E$(L2) 


Jag har bytt ut alla variabler- 
na mot en variabel, som heter 
E$(LJ). Där I är antalet namn 
och J är de olika kolumnerna 1 
till 5. 


CLS 
N=2: REM ANTAL NAMN 


UAIORECNR 









Hem 


Av Christian Lindeberg 





De av er som har ett bra min- 
ne kommer kanske ihåg ett pro- 
gram, som jag har haft om re- 
gister, där man kunde söka på 
namn, adress, postnummer och 
telefonnummer. Programmet 
var på 70 rader och hade många 
rutiner som upprepades beroen- 
de på att jag hade använt varia- 
blerna ES$(I), A$(I), P$(1), PAS(I) 
och T$(I). 

Jag har gjort om programmet 
och använder bara en variabel, 
nämligen E$(LJ). Programmet 
minskar nu ifrån 70 rader till 39 
rader. I förra programmet hade 


Postnummer Telefon 
PAS(I) T$(1) 


jag 4 sökrutiner men nu klarar 
jag det med en sökrutin. Nu 
över till programmet och förkla- 
ringar. 

Rad 10. Tömmer skärmen. 

Rad 20. Variabeln N är antalet 
namn, som registret innehåller. 

Rad 30. Om man har många 
uppgifter att läsa in så att da- 
torn tar lång tid på är det alltid 
trevligt att få reda på att man 
skall vänta ett tag. 


Postadress Postnummer Telefon 


PAS$(I) T$(1) 
Kolumn 4 Kolumn 
E$(1,4) 5 

E$(1,5) 





Rad 40. Dimensionering av 
matrisvariabeln E$(N,5). N får 
värdet i rad 20. Fem är det antal 
kolumner, som jag använder (se 
ovan). 


PRINT: PRINT: PRINT: PRINT" 


DIM E$(N, 5) 
GOSURB 520 
CLS 
FRINT" 
FRINT"I1. 
PRINT"2. 
FRINT'"3. 


REGISTERMENY" 

SÖKNING FÅ NAMN" 
SÖKNING FA ADRESS" 
SÖKNING FÅ FOSTNUMMER" 


PRINT"4. SöENING FA FOSTADRESS" 


FRINT"S. 


FRINT"A. AVSLUTA" 


PRINT: FRINT: INFUT"VAD VILL DU SöKkA 


IF A=6 THEN END 
CLS 


SÖKNING FÅ TELEFONNUMMER" 


FÅ 


VAR 


(1.2.3, 


Rad 50. Hopp till en subrutin, 
som läser in alla uppgifter, som 
finns i DATA-satserna i raderna 
380 och vidare. 


Rad 60 till 130. Här ligger re- 
gistermenyn, där du kan tala om 
vad du vill söka på. 


Rad 140. Här anger du med en 
siffra vad du vill söka på. Kom 
ihåg, ni som har ABC-80 och lik- 
nande datorer ni kan inte skriva 
INPUT med text utan måste än- 
dra rad 140 så här: 


140 PRINT:PRINT:PRINT 
”VAD VILL DU SÖKA PÅ (1, 2, 
3,4, 5 ELLER 6);:INPUT A. 


Rad 150. Känner av om varia- 
beln A är lika med 6 för då hop- 
par datorn ur programmet. 


Rad 160 till 210. Sökrutinen för 
hela programmet, här anger du 
va namnet, adressen eller vad 
du vill söka efter. Vill du söka 
efter mitt telefonnummer så 
skriver du bara 45 54 51 och se- 
dan söker datorn upp alla upp- 
gifter och skriver ut dem i ra- 
derna 230 till 310. Lägg märke 
till rad 200 där jag har använt 
det värde du matade in i varia- 
beln A i rad 140, eftersom detta 
värde också stämmer överens 
med den kolumn, som innehål- 
ler motsvaande information. 

Rad 220. Hoppar tillbaka till 
menyn när du är klar. 

Rad 230 till 310. Skriver ut alla 
uppgifter om den du sökte på. 

Rad 320 till 370. En rutin som 
läser in alla uppgifter som ligger 
i DATA-satserna i raderna 380 
och framåt. 

Rad 380 och framåt. Här byg- 
ger du på med namn och uppgif- 
ter på dina kompisar. 


GLÖM INTE ATT ÖKA VA- 
RIABELN N I RAD 20! 


GOD VÄNTA" 


5 ELLER ÖV "3;A 


FRINT"SERIV NAMNET ELLER NUMRET DU SökKER FÅ "3 


INFUT E$ 
FOR I=1 TO N 


IF E$=E$ (I. A) 
NEXT I 

GOTO 60 

CLS 

FRINT: FRINT: PRINT" 


PRINT: FRINT" 
PRINT: PRINT" 
PRINT: PRINT" 
PRINT: PRINT" 


INFUT Q0$ 
RETURN 

FOR I1I=1 TO N 
FOR J=1 TO 5S 
READ E$(I,J) 
NEXT J 

NEXT I 
RETURN 


DATA LINDEEBERG CHRISTIAN, SANDJOKDSGRAND 


ADRESS : 
FOÖSTNUMMER : 
FOÖSTADRESS : 
TELEFON 

FRINT: FRINT: PRINT" 


THEN GOSUB 250 


NAMN : "sE$(I,1) 
":E$(I,2) 
":E$(I, 3) 
":E$(I1,4) 
":E$(I,5) 
TRYCK PÅ RETURN"; 


10.236 OO, HOLLVIKEN, 45 53 Stl 


DATA DATASSON FLOFFY,DISKETTVAÄGEN 2.999 997, CHIFHÖGEN, 66 99 33 








LEDIGA LORDAG 17 oktober 1987 


Så sorterar man 
använda matriser 


Förra veckan visade jag 
hur man kunde förenkla 
ett registerprogram ge- 
nom att använda en ma- 
trismodell. Ett följdpro- 
blem av att använda ma- 
triser är att sortera. Hur 
sorterar man när man 
har två index i en varia- 
bel? Denna fråga skall vi 
lösa i dag. 

Problem nummer ett är att 


man måste ha klart för sig vad 
de olika variablerna står för. En 
kort repetition av förra veckan. 


Adress Postadress Postnummer Telefon 
A$(I) P$(1) PAS$(I) T$(1) 
Kolumn Kolumn Kolumn Kolumn Kolumn 


E$(1,3) E$(1,4) 


Namn 
E$(1) 


2 
E$(12) 


1 
E$(L1) 


E$(1,5) 


Här har vi de fem olika varia- 
blerna från E$(L1) till E$(1,5). I 
första indexet är person num- 
mer 1 till hur många jag nu har i 





mitt register. I programmet har 
jag använt variabeln N. Det 
andra indexet är de olika upp- 
gifterna om varje person. 1 är 
namn, 2 är adress, 3 är post- 
adress, 4 är postnummer och 5 
är telefonnummer. Om jag nu 
skall sortera namn så måste det 
andra indexet hela tiden vara 1. 
Alltså jag skall sortera varia- 
beln E$(L1). Om jag skall sor- 
tera telefonnummer blir det va- 
riabeln E$(1,5). I programmet 
jag har skrivit den här gången 
så har jag använt mig av en sk 
Quick-sort rutin för att det skall 
gå snabbt. Låt oss gå igenom 
programmet. 


Ny punkt 


Den första delen är nästan sam- 
ma som förra gången. Jag har 
lagt till en punkt till i menyn där 
man kan sortera och få utskrift 
på skärm. Vi skall bara titta på 
sorteringsrutinen. När man väl- 
jer alternativ 6 i huvudmenyn 
så hamnar man i rad 670, som 
visar upp en sorteringsmeny. 
Här kan du välja vad du vill sor- 
tera på. Ditt val läggs i variabeln 
B. Denna variabel innehåller nu 
en siffra, som motsvarar det du 
vill sortera på. Om du har valt ”5 
Telefon” i menyn, så ger siffran 
5 också kolumm 5 se ovan. Nu 
hoppar datorn till rad 420 där 
det ligger en Quicksort-rutin. 
Quicksortrutinen är ganska 
komplicerad, så jag hoppar över 
förklaringen, men jag tar upp 
ett par viktiga punkter. I rad 450 
där är E$(L,B), det sökbegrepp 
du angett i rad 750. Indexet L är 
antalet personer och B är den 
uppgift du angett i sorterings- 
menyn. 


Byter plats 


I rad 510 till 530 byter personer- 
na och deras uppgifter plats om 
de inte befinner sig i rätt ord- 
ning. Sorteringsprogrammet 
sorterar från det lägsta till det 
största. Om du vill ändra så att 
datorn sorterar tvärtom så änd- 
ra tecknen i raderna 460 och 480 
så att större än och mindre än 
tecknen blir tvärtom. När da- 
torn sorterat färdigt så hoppar 
den till rad 780 och frågar vilken 
mer uppgift du vill ha med när 
du får utskriften på skärmen. 
Att det inte blir mer komplicerat 
beror på att vi använder oss av 
matrisvariabler. Det viktigaste 
är att hålla tungan rätt i mun, 
när man hanterar variablerna 
och inte blandar ihop dem. Ett 
bra tips är att göra upp en ma- 
tris på ett papper och skriva in 
sina variabler och vad de hand- 
lar om. Lycka till! 


Skriv 
garna 


till Christian Lindeberg 


om allt som har med 
hemdatorer att göra. 


Adressen är: 


Hemdatorer 
Arbetet 

Box 125 

20121 Malmö 








Hem 


Av Christian Lindeberg 





10 CLS 
20 N=2: REM ANTAL NAMN 
30 PRINT: PRINT: PRINT: PRINT" 
40 DIM E$(N,.S) VAR GOD VÄNTA” 
50 GOSUB 360 
60 GOSUE 420 
70 CLS 
80 FRINT" REGISTERMENY" 
90 PRINT"1. SöKNING FÅ NAMN" 
100 PRINT"2. SökKNING PÅ ADRESS" 
110 PRINT"3. SöKNING PFA POSTNUMMER" 
120 PRINT"4. SökKNING FÅ FOSTADRESS" 
130 PRINT"S. SöKNING PÅ TELEFONNUMMER" 
140 FRINT"6. SORTERING OCH UTSKRIFT FÅ SKÄRM" 
150 PRINT"7. AVSLUTA" 
160 PRINT: PRINT: INFUT"VAD VILL DU SöKkKA FÅ 
(1,2. 23,4,5 ELLER O)"3;A 
170 IF A=6 THEN 670 
180 IF A=7 THEN END 
190 IF AI OR >:5S THEN 70 
200 CLS 
210 PRINT"SERIV NAMNET ELLER NUMRET DU SöKER 
220 INPUT E$ 
230 FOR I=1 TO N 
240 IF E$=E$(1,.A) THEN GOSURB 270 
250 NEXT I 
260 GOTO 70 
270 CLS 
280 FRINT:FRINT: FRINT" NAMN : "s;E$(I,1) 
290 PRINT: FRINT" ADRESS : ":E$(I,.2) 
300 PRINT: FRINT" FOSTNUMMER : ":E$((I,3) 
310 PRINT: PRINT" FOÖSTADRESS : ";E$(I1,4) 
320 FRINT: PRINT" TELEFON : ":E$(I, 5) 
330 PRINT: PRINT: FRINT" TRYCE FÅ RETURN": 
340 INPUT Q0O$ 
350 RETURN 
360 FOR I=1 TO N 
370 FOR J=1 TO 5 
380 READ E$(I1, 0) 
390 NEXT J 
400 NEXT I 
410 RETURN 
420 F=1:L(1)=1:R(1D)=N 
430 L=L(F):R=R(F):F=F-1 
440 I=L: J=R 
450 C$=E$(L,B) 
460 IF E$(I1,E) :=C$ THEN 480 
470 I=I1+1:G0TO 460 
480 IF E$(J,R)<=C$ THEN 500 
490 J=J-1:GO0OTO 480 
500 IF 1>J THEN 550 
510 FOR K=1 TO 5 
520 X$=E$(I1.K):E$(I. FK) =E$ (J.K) :E$(J,. EK) =X$F 
530 NEXT K 
540 I=1+1:J=J-1 
550 IF I1<=J THEN 460 
560 IF J-L>=R-I THEN 610 
570 IF I:=R THEN 590 
580 F=F+1:L(PF)=I:R(F)=R 
590 R=J 
600 GOTO 640 
610 IF Lj=J THEN 630 
620 F=F+1:L(P)=LIR(F)=J 
630 L=I 
640 IF LR THEN 440 
650 IF FO THEN 430 
660 RETURN 
670 CLS 
680 PFRINT"SORTERING " 
690 PRINT"VAD VILL DU SORTERA FA" 
700 FRINT"1. NAMN" 
710 PRINT"2. ADRESS" 
20 PRINT"3. FOSTNUMMER" 
730 PRINT"4,. FOSTADRESS" 
740 PRINT"S. TELEFONNUMMER" 
750 PRINT: INFUT EB 
760 IF Ei1 OR E>5 THEN 670 
770 GOSUEB 420 
780 CLS 
790 PRINT"UTSKRIFT FA SKÄRM" 
800 FRINT"ANGE YTTERLIGARE EN FOST ATT HA 
810 FRINT"1i. NAMN" MED I UTSERIFTEN 
820 PRINT"2. ADRESS" 
830 PRINT"Z3. FOSTNUMMER" 
840 FRINT"4. FOSTADRESS" 
850 FPRINT"S. TELEFONNUMMER" 
860 INFUT C 
870 IF C<1 OR C>35 THEN 780 
880 CLS:FOR I=1 TO N 
890 PRINT E$(I,.E)D.E$(I1,0) 
900 IF I/15=INT(1/15) THEN INFUT O$ 
210 NEXT I 
920 PRINT: INFUT O$ 
930 GOTO 70 
9240 DATA LINDEEERG CHRISTIAN, SANDJORDSGRAÄND 10. 
236 O0, HÖLLVIKEN, 45 53 S1 
9250 DATA DATASSON FLOPPY.DISKETTVÄGEN 2, 


297 997, CHIFHÖGEN, 66 79 35 
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kriv program 


utan 


Lovet förra veckan till- 
bringade jag en del tid på 
tåg. Den tiden använde 
jag till att skriva ihop 
några små program. Det 
är rätt intressant att skri- 
va program utan dator. 
När jag kom hem skrev 
jag av programmen och 
körde dem i datorn. 
Programmen är gjorda från 
uppgifter i boken ”Att chansa 
med räknedosa” av Lennart Rå- 
de. Boken innehåller massor av 
uppgifter så försök att låna bo- 
ken på biblioteket, för den har 
mycket att ge. Boken är skriven 
för programmerbara räknedo- 
sor, men du får inga färdiga pro- 
gram. I en av uppgifterna hitta- 
de jag ett exempel där man ha- 
de räknat ut sannolikheter för 1 
par, 2 par, triss och kåk. Då fick 
jag uppslaget till första pro- 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
20 
130 
140 


150 


CLS 

FOR I=1 TO 10 
AllD=0 

NEXT I 

FOR I=1 TO 5 


FRINT SS: 

ACS) =A (5) +1 
NEXT I 
FRINT 


NEXT I 
IF LEN (E$)<2 
"INGET":END 

IF LEN (B$)>3 
PRINT B$+" 

IF MID$(E$, 
THEN FRINT 
PRINT "KAK" 


160 
170 
180 


190 
List FOKKER 


10 
20 
30 
40 
50 
60 
70 
Bö 
920 
100 
110 
120 
1:30 
140 
150 
160 
170 
180 
190 
200 
210 
20 


2350 


240 
200 
260 
270 
280 
290 
300 


CLS 
RANDOMIZE 
FOR I=1 TO S 


NEXT I 
FOR I=1 TO 5 


NEXT I 
PRINT: PRINT 
FOR 1=1 TO 5 


NEXT I 


INPUT K 
PRINT: FRINT 
FOR I=1 TO K 


INPUT E(K) 


FRINT 

NEXT I 
FRINT: FRINT 
FOR I1=1 TO 5S 
NEXT I 
PRINT: PRINT 
FOR I=1 TO 5 


NEXT I 


List YATZY 





S=INTIRNDK10) +1 


FOR I=1 TO 10 


IF ACD 1 THEN E$=B$+STR$(A(TD)) 


la 


FRINT TABCIXKS) : Is 


datorhj 


alp 


Hem 





DATORER 


Av Christian Lindeberg 


grammet. Hur kan datorn kon- 
trollera vilket det är? 


Yatzy 


Nästa program var ett Yatzy- 
program där man skulle kunna 
slå om de tärningar som man 
inte ville ha kvar. Jag skall för- 
klara listorna men först ett par 
brev. 


Det har kommit en del brev 
om = registerprogrammet med 
sortering. Ni som inte får det att 
fungera har datorer, som måste 


RANDOMIZE (TIMER) 


THEN FRINT 
THEN 180 
TAL": END 


2) =MID$(E$, 3,2) 
"TVA FAR": END 


CTIMER) 


ACD=INTIRNDXA6) +1 


PRINT TARCIKS) 3: Iz 


FRINT TAECIKE) ss ACID): 


FRINT: FRINT:FRINT 
FRINT"HUR MÅNGA VILL DU EYTA": 


FRINT"SLA IN FOSITIONEN": 


ACB (KD DD =INTIRNDKA6) +1 


PFRINT TAB(IXS) ; ACT): 


ha en dimensionering på alla 
variabler som är indexerade. 


En indexerad variabel är till 
exempel E(I), där I är ett tal. I de 
flesta datorer kan man använda 
indexerade variabler mellan 0 
till 10 utan att behöva göra nå- 
gon dimensionering. Jag kan 
alltså använda variabeln E(I) 
från E(0) till E(10). Skall jag ha 
11 eller flera index så måsta jag 
dimensionera. Till exempel med 
25 st index blir det att i början 
av programmet skriva en rad 
DIM E(25). 


Dimensionera 


Men det finns tyvärr en del da- 
torer där jag måste dimensione- 
ra så fort jag använder en in- 
dexerad variabel. Så använder 
jag bara fram E(1) till E(5), så 
måste jag i början av program- 
met skriva DIM E(5). Det bety- 
der att L(F) och R(F) i register- 
programmet mäste dimensione- 
ras på en del datorer. 


Astronomi 


Jag har lånat en bok på bibliote- 
ket, som heter ”The Astronomi- 
cal Almanac 1987”. Efter att ha 
tittat igenom den med alla dessa 
formler och tidsangivelser så är 
det konstigt att några tider blir 
rätt. Jag kom underfund med att 
den tid vi använder är mer eller 
mindre ett politiskt beslut och 
den verkliga soltiden är något 
helt annat. Jag är för tillfället 
inte kompetent att reda ut be- 
greppen men jag kanske åter- 
kommer längre fram. Nu till de 
två listorna och först tar jag den, 
som jag kallat POKER. 

Rad 10 måste jag ha med för 
att få olika serier av slumptal. 
Alla som skriver i GWBASIC el- 
ler någon annan PC-basic måste 
ha rad 10. 

Rad 20 till 50 är av säkerhets- 
skäl — jag nollställer alla varia- 
bler, som jag skall använda. 


Slumptalet 


Raderna 60 till 100 är en loop, 
som tar fram de siffror som jag 
skall undersöka. Rad 70 tar 
fram slumptalet och rad 90 räk- 
nar datorn hur många gånger 
siffran har kommit upp. 

Rad 130 lägger de antalet i en 
sträng om någon A(S) variabel 
har fått mer än ett tal. Alltså par 
eller mer. 

Raderna 150 och 160 kontrolle- 
rar längden på strängen B$. Ar 
den större än 3 så består den av 
två par eller ett par och en triss, 
alltså en kåk och då hoppar den 
till rad 180 som kontrollerar om 
det är lika, alltså två tvåor, och 
då skriver ut ”TVÅ PAR”. I an- 
nat fall måste det vara en KÅK, 
vilket den skriver ut i rad 90. Nu 
över till YATZY-programmet, 
som är längre men lite lättare. 
Många loopar 
Programmet består av en massa 
loopar där första loopen mellan 
rad 30 till 50 ger slumptalen 
mellan 1 och 6. Nästa loop mel- 
lan 60 till 80 ger siffrorna för att 
visa platsen. Raderna 100 till 120 
skriver ut vad tärningarna utvi- 
sar. I rad 140 kommer sedan frå- 
gan om hur många tärningar du 
vill slå om och med variabeln K 
får du nu en ny loop i raderna 
170 till 220 där du slår om dina 
tärningar. 

Resultatet skrivs sedan ut i ra- 
derna 240 till 300. 
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Så övar du matte 
på din hemdator 


Den här veckan kommer 
jag att ta upp ett problem, 
som många av mina läsa- 
re har frågat om. Det gäl- 
ler alla som går i skolan 
och är intresserade av 
ämnet matematik. Frå- 
gan jag har fått är: ”Hur 
kan jag göra egna Ööv- 
ningsexempel på min da- 
tor?” 


Bra fråga! Problemet är inte 
så svårt eftersom programme- 
ring går ut på att jag vet både 
frågan och svaret i princip. Låt 
mig förklara. Exemplet jag skall 
använda är att räkna ut ränta, 
procent, tid eller kapital enligt 
modellen: 
kapital & procent/100 & tid =rän- 
ta 
Ett problem är att tiden kan va- 
ra dagar eller månader, men det 
löser vi med ett par subrutiner. 
Jag skall nu visa hur man löser 
ett sådant här programmerings- 
problem. 


Subrutiner 


Först börjar jag med subrutiner, 
som skall räkna ut alla mina 
faktorer. Jag delar upp proble- 
met i två subrutiner där en skall 
ta hand om dagar och den andra 
om månader. Första subrutinen 
blir då så här: 

620 REM DAGAR 

630 T= INT (RND & 360 + 30) 

640 K= INT (RND +& 24500 + 500) 
650 P=INT (RND &12+8) 

660 R+K & P/100 & T/360:R = INT 
(RA 100+0.5)/100 

670 RETURN 

I rad 630 lägger jag till 30 för att 
lägsta tiden skall vara 30 dagar. 
I rad 640 blir lägsta beloppet 500. 
I rad 650 blir lägsta procenten 
890. 

I rad 660 så räknar datorn ut 
vad räntan i kronor skall bli. 
Sista delen efter kolon ser till 
att datorn avrundar med två de- 
cimaler. 


Alla svaren 


Den andra subrutinen blir en 
kopia med två skillnader. 

Rad 630 med tiden ändras till 
månader och rad 660 där måste 
delningstalet för tiden vara 12 i 
stället för 360, så raderna blir 
följande: 

690 T=INT(RND +12+1) 

720 R=K+&P/100&T/12:R=INT 
(R & 100+0.5)/100 

Resten ser likadant ut. När jag 
har gjort dessa två subrutiner 
klara så är problemet löst efter- 
som att jag nu har svaret på alla 
frågor. Oavsett om jag vill räkna 
fram kapital, procent, tid eller 
räntan i kronor, så har datorn 
alla svaren. 


Fyra rutiner 


Det som nu behövs är bara en 
del skrivrutiner för att ställa de 
riktiga frågorna till dig. Jag har 
lagt upp fyra stycken rutiner, 
som är nästan identiska. De lig- 
ger med början på raderna 210, 
310, 410 och 510. Den första där 
får du räkna ut kapitalet, den 
andra där gäller det procenten, 
den tredje är kanske det vanli- 
gaste där du får räkna ut räntan 
i kronor och till slut har vi den 
fjärde där du måste räkna ut ti- 
den. Du får här också ett tillfälle 
att använda dina kunskaper i 
ekvationer genom att i alterna- 
tiven 1, 2 och 4 sätta in x för det 
efterfrågade. 

Har du problem med program- 
met eller har en bättre och 
mindre lösning på problemet så 
skriv. Har du själv några tips på 
liknande problem så hör av dig. 
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10 
20 
30 
40 
SO 
60 
70 
Bö 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2:30 
240 


250 


260 
270 
280 
290 
300 
310 
320 
330 
340 


A00 


360 
370 
TE 
390 
4100 
412 
420 
4:50 
440 
450 


460 
470 
480 
490 
SV00 
S10 
oE0 
30 
540 
ara 
60 
S70 
Stl 
SF 
00 
S10 
650 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


-— 


730 





CLS 

REM PROGRAM 
FRINT: FRINT 
PRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 


IF A=1 THEN 


IF A=2 THEN 


IF AS1i OR A 
CLS 

FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
ON EB GOTO 2 
GOTO 110 
CLS 

FRINT: FRINT 
FRINT: PRINT 
FRINT: FRINT 
FRINT: FRINT 
ELSE PRINT 
FRINT: FRINT 
INFUT O$ 
FRINT: FRINT 
FRINT: FRINT 
GOTO 10 

CLS 

FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
ELSE PRINT 
FRINT: FRINT 
INFUT Of 
FRINT: FRINT 
FRINT:FRINT 
GOTO 10 

CLS 

FRINT: PRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
ELSE PRINT 
FRINT: FRINT 
INFUT O$ 
PRINT: FRINT 
FRINT: FRINT 
GOTO 10 

CLS 

FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
FRINT: FRINT 
INFUT O$ 
FRINT: FRINT 
IF A=1 THEN 
FRINT: FRINT 
GOTG 10 

REM DAGAR 
T=INT (RNDxXZ 
E=SINT (RNDX2 
F=INTIRNDxX1 
R=FKAPF/100XT 
RETURN 

REM MÅNADER 
T=INT (RNDxX1 
E= INT (RNDXE 
F=INT (RNDxX1 
R=EEXR/LOOXT 
KRETURN 


em 
. OAIORER 





FÖR ÖVNINGAR I RAÄNTERKRAÄKNING 
TAR (10) : "MENY TID" 


TAE (10) 3 "VILL DU RÄKNA MED DAGAR ELLER MÅNADER" 
TAR (10); "1. DAGAR" 

TAB (10) :"2. MÅNADER" 

TAB (10) : 3: INFUT A 

GOSURE 620 

GOSUE 480 

2 THEN 10 


TAR (10) 3 "MENY EXEMPEL" 
TAR (10) 3 "VAD VILL DU RÄKNA UT" 


TAB (10), "1. (KD) AFRFITAL" 

TAR (10) "2. (FF) ROCENT" 

TAB (10), "3. (R)ÄNTA I ERONOR" 
TAE (10). "4. (T) ID" 


TAE (10) ;: INFUT B 
10, 310.410, 510 


TAE (10) 3 "HAR AR DITT RÄKNEEXEMFPFEL" 

TAR (10) i "PROCENT ="sP3" 

TAE (10) "RÄNTA FÅ PERIODEN =";R3'" KRONOR" 

TAE (10) 3; "TIDEN =";T3;: IF A=1 THEN FRINT " DAGAR" 
"MÅNADER" 

TAR (10) : "TRYCK FÅ RETURN NÄR DU VILL VETA SVARET"; 


TAB (10) ; "SVARET =";K3" KRONOR" 
TAR (10) "TRYCK PÅ RETURN": : INFUT 0$ 


TAE (10); "HAR AR DITT RAENEEXEMFEL" 

TAR (1O) :"KAFITAL ="3;E3:" KRONOR" 

TAB (10) "RÄNTA FÅ FERIODEN =";R;:'" KRONOR" 
TAR (1O) 3: "TIDEN ="; T3;:1IF A=1 THEN PRINT " 
"MÄNADER" 

TAB (10) si "TRYCK FÅ RETURN NÄR DU VILL VETA SVARET": 


DAGAR" 


TAB (10) 3: "SVARET ="3;P3" 1" 
TAB (10) "TRYCK FÅ RETURN"; : INFUT O$ 


TAB C1Ö) 3: "HAR ÄR DITT RAEKNEEXEMFPFEL”"” 

TAE (10); "EARFITAL ="sK3:" KRONOR" 

TAR (10) "PROCENTEN ="2sP3s" Yt 

TAR (10): "TIDEN ="; T:: IF A=1 THEN FRINT " DAGAR" 
MÅNADER" 

TAB (10): "TRYCK FÅ RETURN NÄR DU VILL VETA SVARET" 3 


TAR (10) 3: "SVARET ="3;R3" KRONOR" 
TAR (10) "TRYCK FÅ RETURN": : INFUT O$ 


TAR (10) 3 "HAR AR DITT RÄKNEEXEMFEL" 

TAR (LO) 3 "KARFITAL =";Ek:" ERONOR" 

TAR (LO) "FROCENTEN =":;P3" Z" 

TAR (10) "RÄNTA PÅ FERIODEN =";R3" KRONOR" 

TAR (10) : "TRYCK FÅ RETURN NÄR DU VILL VETA SVARET"; 


TAR (10) 3 "SVARET ="; T3 
FRINT "DAGAR" ELSE FRINT "MÅNADER" 
TAR (10) "TRYCK FÅ RETURN"; : INFUT 0$ 


30+50) 

4500+500) 

2+8) 
/SGOTREINTIRK100+.E) /100 


2+1) 

45S00+500) 

2+8) 
/1E?R=EINT(RK100+.5) /100 
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Program om 
geometritraning 


Det du ser på skärmen är att 
när datorn till exempel skickar 
en signal att datorn skall skriva 
ut koden 65, går denna först till 
en teckengenerator för att över- 
sättas till ett grafiktecken, som 
skall skrivas ut på skärmen. I 
detta fall är grafiktecknet ett A. 
Hade datorn sänt koden 66 hade 
det blivit ett B på skärmen. 


Alla dessa koder kan du hitta i 
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Den här veckan skall jag 
fortsätta med program 
för träning i matematik. 
Tidningen kom knappt i 
brevlådan i lördags innan 
det ringde och Sven i 
Malmö undrade om jag 


och då måste jag kunna använ- 
da dem också. Svaret är nej ef- 
tersom datorn arbetar med en- 
bart siffror och det du ser på 
skärmen är inte vad som händer 
i datorns minne. Datorn arbetar 
endast med de sifferkoder för 
variabler, som är godkända i 
grundsystemet. 


din instruktionsbok. Slå upp be- 
nämningen ASCII, så får du alla 
sifferkoderna datorn använder 
för de olika tecknen. 


Jag hoppas att du skall ha nyt- 
ta av geometriprogrammet. Jag 
kommer eventuellt att fortsätta 
med flera sådana här program 
om ni så önskar. 


inte kunde skriva ett pro- 
gram, som tränade på 
geometri. Sven går på a CLS 

högstadiet och tycker att = dd ERINT: PRINT" 
geometri är svårt. - 


30 PRINT: PRINT", 
Det finns bara ett bra sätt att 40 PRINT PRINT", 


MENY 
EVADRAT" 
REKTANGEL" 


lära sig matematik och geometri = = PRINT: PRINT"Z3, TRIANGEL" 
i synnerhet. Träna, träna och A0 PRINT: PRINT"4, CIRKEL" 


träna. När det gäller geometri, 


ä 21: oc por 70 FSINT: PFRIHT"'S, 
så är de flesta dåliga därför att 


SLUTA" 


. . : 0 Ls ac FRINT: PRINT AD VILL DU RAENA FAS INFUT ($ 
de orkar inte rita figurer till si- 30 ON VAL ICO) GOSUB 1000, 2000, 3000, 4000, 5000 


na uppgifter. I geometri är det 
så att lösningen på problemet 
ser mycket enklare ut när man 
har en figur att titta på. Försök 
också att rita figurerna någor- 


100 
110 
200 


210 


CN VÄL (CE) 
BOTA 10 
CLE:PPRINT: PRINT" EVADRAT!" 
PRINT: PRINT" VÄG BLIR AREAN 


GOTO 


FOO, 500, 400, =00 


OM STDAN=":; EB 


lunda i skala. met PRINT: PRINT" AÄREAN=": INPUT X 
230 IF ArX THEN PRINT"RÄTT": 2 GOTO 250 


PRINT: PRINT"FEL FÖRSÖK IGEN": : GOTO 210 


Programmet c 
Programmet jag har gjort tar PRINT: PRINT" OMERETSEN=S": os INPBUT Y 

upp kvadrat, rektangel, triangel 255 fF O= THEN PRI INT"URAÄTT 60 T Ö 280 oo 
och cirkel. Programmet är upp- 0 PRINT: PRINTUFEL FöRSoko oo ofatEhttos BOT 250 
byggt på dubbeltrutiner. Om du = 280 FRINT:FRINT"TRYCK PÅ RETURN": s INPUT WE 
tittar i raderna 90 och 110 så ser. 270 GÖTA 10 a 

du att först går programmet till. = 200 CLS:FPFRINT:PRINT"REKTANGEL” 
subrutiner, som ligger på rader- = 310 PRINT:FRINT"VAD BLIR AREAN OM 
na 1000, 2000, 3000 och 4000. I 315 FRINT:PRINT"OCH LÄNGDEN="x;L 
dessa subrutiner hämtar datorn = 320 PRINT: FRINT"AREAN=":;: INPUT X 

sina värden beroende på vad du 330 IF A=X THEN PRINT"RATT": : GOTO 250 
tänker räkna på för figurer. När = 340 FRINT:PRINT"FEL FÖRSÖK IGEN"; : GOTO 310 
datorn hämtat sina värden kom- = 350 FRINT:FRINT"OMKRETSEN=";: INPUT Y 

mer den tillbaka till rad 100 där 


20 
So 


Ce y 


EREDDEN=": EB 


| 360 IF O=Y THEN PRINT"RATT": GOTO 380 
den sedan hoppar till den typ av = =75 PRINT:FRINT"FEL FÖRSÖK IGEN":;: GOTO 350 


beräkning, som du har begärt. 
Det här är ett ganska bra sätt 


80 PRINT: PRINT TRYCK Få RETURNS: INEUT ble 


oe är Hu TS0 GOTO 10 
att arbeta på, där du använder = 200 CLe:PRINT:PRINT"TRIANGEL" 


samma val för två olika beslut. 


Man kan naturligtvis lägga hela FRINT: FRINT" VAD 


410 BLIR AREAN OM SÄSENs"; EB 


beräkningen och framtagningen = 215 FRINT:PFRINT"OCH HGJDEN=";H 
av värde i samma rutin. Alla ru- = 420 PRINT: PRINT"AREAN=S":;: INPUT X 


NT URATT": 2 G0TO0 480 
FöRSök IGEN": : GOTO 


RETURNS 8 INPUT 


IE äsX THEN PRI 
PRINT PRINT"PEL 
PRINT: PRINT" TRYCK På 
GOTO 10 

PRINT: PRINT"C 


tinerna är uppbyggda på samma 
sätt. Subrutinerna plockar fram 
värdena genom att använda 
slumptalsgeneratorn och ta ett 
heltal mellan 1 och 30. Du kan = 500 


410 


WE 


PREL 


Clas 


själv ta andra gränser genom = =5jia PRINT: PRINT. AD El IR AREAN OM RADIEN"; FR 
att ändra talet 30 till eget önske- = == PRINT: FRINMT'" 14" 
mål. S20 PRINT: PRIN IT AREAN" se INPUT X 


at: IF fsk THEN 


. FPRINT"RÄTT"» :G0TO 550 


PRINT: PRINT"FEL FÖRSÖK IGEN": GOTO 510 
I subrutinerna har jag valt en Sö FEINTÉI RRIGMTCOMERETSENS": 2: IN EL UT Y 
variabel, som är mycket dålig SAG IF O=Y THEN PRINT"RAT iv GOTO AO 
och det är bokstaven O, som Gc PRINT PRIST'FEL FORS] IGEN": : GOTO Sal 


mycket lätt kan förväxlas med = 550 PRIN Ti FRREINTUTEYCK 
siffran 0. En del datormärken =O Al La 

kan inte använda flera tecken = 1050 RE M EVBDORAT 
till sina variabler, därför har jag = 1012 Eee LNT ORNÖ 
bara använt ett tecken. Om du 


På RETURN" 3: INPUT WE 


Ol 1 


V ; 1020 REM 
kan använda flera tecken, skriv = iaz0 A=ExE 


BREDD i stället för B, LANGD i 
stället för L, HOJD i stället för 
H, OMK i stället för O, AREA i 
stället för A, BAS i stället för B i 
triangelfallet. 

Du lägger märke till att jag in- 
te skriver AAO i variabelnamn. 
Datorn klarar inte av Ö i va- 
riabelnamn eftersom dessa tec- 
ken inte betyder bokstäver för = i 
datorn utan andra symboler. 000 


Os Ä4 KR 

RETURN 

REM REKTANGEL 

B= INT IRNOKA2O)) +1 
Ls NT OCR NO AR0 ) + 1 
IF oB=L THER SOTO 
fas RK 

D=EKS-I KL 

TURN 

REM TRIANGEL 


1040 
Lön 
STÖR 
SöOLG 
TÖS0 
ROn30 
FO040 


Ra RE 


Det är på det viset att datorn 010 BS INT ÖRHOGESO) +1 
arbetar med ett grundsystem, 3020 H=INT ORNOGG00 + 1 


som man inte ändrar när man FÖT5S IF Bel THEN 2010 


sätter till svenska tecken. I 21030 A=SBKHÖ 


grundsystemet kan datorn bara 
arbeta med bokstäverna A till Z. 
Dessa är de enda som datorn 
accepterar som variabler. 


Ej ÅAÖ 


Nu kanske du säger: Men teck- 
nen för ÅÄÖ syns på skärmen 


050 RETURN 

REM CIRKEL 

Re TNT ÖRNOXIDO0 +1 
REM 

ÄATSkRARKI. 14 
U=PKRKD, 14 

FE TURN 

END 


Zn 
få ' Al Lp 
är 1 at 0 
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Program för OS 







Hem 
URIORER 
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Nu har OS i Calgary bör- 
jat och de sena kvällarna. 
Jag fick en fråga, som ty- 
värr kom lite för sent för 
förra numret. Det gällde 
program för inskrivning 
och sortering av resultat. 


Först skall jag ta upp ett brev, 
som jag fick här i veckan från 
Rudi D. Jag skall ta ett utdrag 
ur brevet eftersom det här gäl- 
ler ett problem, som ofta dyker 
upp. 

"Jag har en Commodore plus/ 
4, en VIC 20+exp 8K, en Com- 
modore 64 'personal computer, 
kassettstationer Commodore 
1530 och 1531 samt en skrivare 
Citizen 120D. 

Om 64:an inte är en hemdator 
utan faktiskt en 'PC-dator', är 
mitt problem kanske enklare att 
lösa. Problemet är att kunna an- 
vända plus/4:ans ordbehandlare 
och helst även den övriga in- 
byggda mjukvaran på ett sådant 
sätt att jag kan lagra på disket- 
ter som sedan kan läsas av 
IBM-kompatibla maskiner. I din 
artikel från 26/9-87 ger du några 
basicsatser för att kunna lagra i 
ASCII-format. Jag har ingen 
diskdrive än men skall nu köpa 
en och jag tror att Commodore 
1571 kunde passa bra. Kan jag i 
så fall använda dessa satser, bå- 
de på ordbehandling och basic- 
program och hur då?” 

Problemen med datorer är att 

de både kan kommunicera med 
andra datorer och att de inte 
kan. 
Låt mig dela upp problemet i 
delar. En dator har en intern 
kommunikation och en extern 
kommunikation. Med «intern 
kommunikation menar jag 
kommunikation mellan datorns 
olika enheter, såsom diskdrive, 
skrivare och inom datorn. Den 
externa kommunikationen sker 
när datorn kommunicerar med 
en annan dator via någon form 
av datakommunikation. 

Om vi tar exemplet med en 
64:a och en diskdrive, så har 
diskdriven en egen dator, som 
styr systemet och uppläggning- 
en av programmen på disketten. 


En diskett, som innehåller pro- 
gram eller filer av vilket slag 
som helst kan inte användas på 
en IBM-kompatibel dator. Sy- 
stemen har olika sätt att han- 
tera informationen varför det 
inte är möjligt att göra. 

Finns det då ingen möjlighet 
att med hjälp av en till exempel 
64:a eller plus/4 överföra filer 
från den till en IBM-kompatibel 
dator. Svaret är ja. 

Vad som behövs är att båda 
datorerna har ett kommunika- 
tionsprogram och ett modem. 
Har man detta så är det bara att 
ringa upp den andra datorn och 
skicka över sin text och den 
andra datorn kan lagra texten 
på diskett. Kommunikationen 
kan ske i båda riktningarna 
utan problem. Ett bra modem i 
dag kostar kring 1.000 kr till 
1.500 kr och ett kommunika- 
tionsprogram kan man få gratis 
via en del av alla de databaser, 
som finns i Sverige. Runt Mal- 
mö finns det fyra stycken som 
har kommunikationsprogram. 
Det enda problemet är hönan 
och ägget — vad — kom först? 
Eftersom man måste ha ett 
kommunikationsprogram, för 
att kunna hämta ett ur en data- 
bas. Men det finns säkert någon 
kompis i närheten som kan 
hjälpa dig med ett program. 

Att ha ett modem och kommu- 


10 DIM NE(2S),. T(ES 


20 CLS 

30 R=R+1 

40 PRINT: PRINT"MATA 
50 INFUT N$(R) 


60 FRINT: FRINT"MATA 
70 INFUT TOR) 

60 IF R=1 THEN 50 
0 FOR I=1 TO R-1 
100 FOR J=I1I+1 TO R 


nikationsprogram vidgar också 
vyerna eftersom man kommer i 
kontakt med så många likasin- 
nade i de olika databaserna. I 
dessa kan man också skicka 
brev och ställa frågor. 

Till slut till Rudi: Din sista frå- 
ga är om du skall köpa en disk- 
drive 1571. Svaret är absolut nej 
eftersom den är speciellt gjord 
till C-128 och inte till dina dato- 
rer. Det är bara en liten del av 
1571:an du kan utnyttja till dina 
datorer. Är det en begagnad till 
ett lågt pris så är det OK, men 
inte en ny. 

Nu över till programmet. Jag 
har gjort ett litet program med 
en enkel sortering. 

Rad 10 dimensionerar variab- 
lerna till 25 tävlande. Vill du ha 
fler så bara öka 25 till ett annat 
tal. 

Rad 30 räknar antalet tävlan- 
de. 

Raderna 40 till 70 — här sker 
inmatning av de tävlandes 
namn och tider. 

Rad 80 hoppar tillbaka till rad 
30 om det är första tävlande ef- 
tersom det inte är lönt att sor- 
tera en tävlande. 

Raderna 90 till 150 — här sker 
sortering av de tävlande så att 
den med lagsta resultatet blir 
rankad etta. Om du vill ha det 
högsta resultatet först så vänd 
på tecknet i rad 110, så att det 
blir större än-tecknet. 

Raderna 160 till 190 skriver ut 
resultatet. 

Raderna 210 och 220 ger ett 
hopp tillbaka till nästa tävlande. 
Man kan komplettera program- 
met med en möjlighet att skriva 
in två resultat, så att det passar 
till de olika formerna av utförs- 
åkning. Lycka till med program- 
met och ha ett skönt sportlov. 


IN NAMN"; 


IN TID ELLER FOÖÄNG": 


THEN 140 


ÄPENE (DD INE(D) =N$IJ) 2 NE (J)=XF 


110 IF T(DATOJ) 

120 X=T(1):T(D)=T(J): T(J)=X 
130 

140 NEXT J 

150 NEXT I 

160 PRINT: FRINT: PRINT 
170 FÖR I=1 TO RK 

180 PRINT N$(D).T(I) 
190 NEXT I 

200 PRINT: PRINT 

210 


AN 
ans 0 


GOTO 20 


INFUT"TRYCE FÅ RETURN"; O$ 
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Så kollar datorn 
ditt personnummer 


Vad betyder siffrorna ef- 
ter födelsetiden i våra 
personnummer? 

Alltså de fyra sista siff- 
rorna? Det är ett par frå- 
gor som återkommer med 
jämna mellanrum. Så här 
ligger det till: 


Före 1947 hade vi inga person- 
nummer eller liknande. Det en- 
da vi använde var födelsetiden. 
1 januari 1947 stadgades genom 
folkbokföringsförordningen att 
alla personer, som var mantals- 
skrivna i Sverige skulle få ett 
födelsenummeer i det län där de 
var mantalsskrivna. Detta får 
en viss betydelse när du använ- 
der dagens dataprogram. Efter 
1 januari 1947 har alla nyfödda 
fått ett födelsenummer från det 
län där de är födda. Den sista 
siffran i födelsenumret är udda 
för män och jämn för kvinnor. 





Infördes 1967 


9 juni 1967 kom ett tillägg till 
folkbokföringsförordningen att 
varje person, som är mantals- 
skriven i Sverige skall ha en 
identitetsbeteckning, som kallas 
personnummer. Detta person- 
nummer skulle bestå av tre de- 
lar. 

1. Födelsetid i ordningen de 
två sista siffrorna i året, de två 


10 DIM N$1(25),Ti25),R (25) 
20 GÖSUB 240 

30 CLS 
PRINT:PRINT"SLA 
50 INPUT Ar 
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A=VÄL (MIDS IB, I, 12) 
70 IF I E=INTiIi1/52) 
100 C=AXSZ 
110 IF 03 
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THEN 
PRINT"PERSONNUMMER FEL: GOTO 40 


THEN 





ordningssiffrorna för månad 
och till slut de två siffrorna för 
dagen. 

2. Födelsenummer från det län 
där man var mantalsskriven 
1 jan 1947 eller född efter den 
1/1 1947. 

3. Kontrollsiffra. 

Födelsenummer upp till 929 är 
utdelade till alla län i Sverige. 

Alla födelsenummer mellan 
930 och 999 tillhör Riksskatte- 
verket och delas ut till länen om 
deras egna tar slut. Alla, som 
kommer till Sverige från utlan- 
det får också ett födelsenummer 
mellan 930 och 999. 


Subrutin 
Kring allt det här har jag nu 
gjort ett program, som kanske 
fordrar en förklaring. 

Jag börjar med att dimensio- 
nera indexerade variabler, som 
blir större än tio. 

I rad 20 hoppar daton till en 
subrutin, som börjar i rad 340. 

Här läser datorn in alla upp- 
gifter om vilket län och vilka in- 
tervall, som födelsenumren lig- 
ger mellan. I variabeln N$(I) lig- 
ger länets namn i T(I) och R(I) 
ligger lägsta respektive högsta 
värdet på födelsenumret. 

När subrutinen är inläst frå- 
gar datorn efter personnumret. 


IN DITT FESONNUMMER MED BINDESTRECK”: 


B$=MIDT AS, 1,6) +MIDS LAS, 3,5) 


THEN EB=B+A: GOTO 150 
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Detta måste skrivas, som födel- 
setid, bindestreck och sedan fö- 
delsenummer och kontrollsiffra 


i en följd. Mitt personnummer 
blir då 701216 — 1234. 


O FKRedan i livets allra 


, första 
timme börjar ”numreringen” 
på BB — och några veckor 
senare har den nyfödda ett 


personnummer som räcker li- 
vet ut. 


I raderna 60 till 180 räknar da- 
torn ut och kontrollerar person- 
numret, om kontrollsiffran inte 
stämmer, så skickar datorn dig 
tillbaka till rad 40. 

Uträkning av «kontrollsiffra 
hade jag med för några veckor 
sedan, så det tar jag inte med 
nu. 


240 FRINT:PRINT"DITT FERSONNUMMER=s ":;A$ 

250 PRINT PRINT"DIN KONTROLLSIFFRA =";E 
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FO, DAS 


och lägger det i variabeln F. 

I rad 200 till 220 testar datorn 
inom vilka gränser födelsenum- 
ret ligger och när detta är klart 
hoppar datorn till rad 230. 

I raderna 230 till 330 skriver 
datorn ut den information, som 
den har plockat ur personnum- 
ret. 

I raderna 270 och 280 testar 
datorn udda och jämnt. 

Rad 290 testar om talet är 
större än 930 för då är det ett fö- 
delsenummer från Riksskatte- 
verket. 


AL IMID$ I AS$, 10,10) 7/22 
Ua NBD SEND 


TILL" 


NA AV RIKSSKATTEVERKET!" 


7 





Nu skulle man kunna hoppa 
från rad 330 till början av pro- 
grammet och testa ett nytt per- 

15 sonnummer. 

Skriv en rad 330 som fungerar. 
Du kan börja med GOTO 30. 

Sedan kan du sätta igång och 
tänka. Lycka till! 
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Fibonaccis tal 
och kaninproblem 


Den här veckan kommer 
det bland annat att hand- 
la om matematik. Innan 
jag kommer till den ma- 
tematiska delen så skall 
jag ta en brevfråga om 
kopiering. 

Brevet är från Peter B i Häst- 
veda, som bland annat skriver 
så här: 

"Jag har en Spektravideo 738 
med inbyggd <diskettstation. 
Mitt problem är nu att jag vill 
kopiera in spel på diskett. Jag 
kan kopiera in sådana spel som 
går att lista upp men inte såda- 
na spel som inte går att lista upp 
bland annat sådana spel som 
man laddar in med BLOAD 
”CAS?:?”,R. Jag har också hört att 
man kan kopiera in cartridges 
på diskett. Vet du hur man gör?” 


Skyddat 


Jag tror att många känner igen 
sig i frågeställningen. Nu är det 
så att de företag, som har gjort 
spelen har lagt ett kopierings- 
skydd för att spelen inte skall gå 
att kopiera. Jag hoppas att du 
vet att det inte är tillåtet att ko- 
piera köpta spel och kopiera till 
kompisar. Du får däremot ko- 
piera till dig själv, så att du inte 
sliter på orginalspelet. För att 
kunna kopiera ett spel, som är 
skyddat så måste man ha spe- 
ciella kopieringsprogram, efter- 
som spelen har AUTOSTART. 
Du måste ladda in ett program i 
datorn för att kunna kopiera det 
till disketten. 





Via telefon 


När du laddar i programmet så 
startar det upp och du kommer 
inte in i datorns minne, så att du 
kan kopiera det. Det finns på 
marknaden «speciella kopie- 
ringsprogram för att kopiera 
från band till disk och från disk 
till disk. Nu är din dator inte en 
av de vanligaste på marknaden, 
så jag vet inte om det finns så- 
dana program i Sverige. Titta 
efter i svenska eller engelska 
datortidningar. Ett annat sätt 
att kringgå det är om man har 
ett modem och terminalprogram 
och en kompis med samma da- 
tor också med modem och ter- 
minalprogram, så kan man kan- 
ske föra över spelet via telefon 
till diskettenheten. 


Primtal 


Nu över till matematiken. Jag 
fick två frågor i veckan, den ena 
gällde primtal och den andra Fi- 
bonaccital. Först tar vi primtal. 
Primtal är ett heltal, som inte 
har någon annan delare än 1 
och sig självt. Det betyder att ett 
primtal inte kan delas upp i an- 
dra tal. Det finns bara ett jämnt 
primtal och det är talet 2. De 
första primtalen är 1, 2, 3, 5, 7, 11 
och så vidare. I programmet till i 
dag har jag gjort en liten lopp, 
som tar ut alla primtal fram till 
500. Kör programmet och funde- 
ra ut varför det tar längre och 
längre tid innan nästa primtal 
kommer fram. Kan man sina 
primtal så är det mycket enkla- 
re att ta fram minsta gemen- 
samma nämnare vid bråkräk- 
ning. 


Kaninproblemet 


Fibonaccital eller Fibonaccis 








följd är en oändlig följd av hel- 
tal. Först skall jag tala om vem 
Fibonacci var. Leonardo av Pisa, 
som han också kallades var en 
matematiker från 1200-talet. 
Matematiken utvecklades myc- 
ket långsamt under medeltiden 
och Fibonacci var en av de få. 


TELEFON 





Han gav ut en bok år 1202 med 
titeln ”Liber abaci” (En bok om 
abacus). En abacus är en ram el- 
ler ett bräde för underlättande 
av räkneoperationer. Detta sys- 
tem användes fortfarande i Ja- 
pan bland annat. Fibonacci bi- 
drog till att de hindu-arabiska 
siffrorna kom till Europa, alltså 
de siffror, som användes i dag. 
Fibonaccis tal sammanhänger 
med det sk ”kaninproblemet”. 
Man placerar ett kaninpar i en 
stor bur för att ta reda på hur 
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många kaniner det blir på ett år 
eller längre. 


Oändlig följd 

Kaninparet föder ett nytt par 
varje månad, från och med den 
andra månaden av sitt liv. Det 
första paret föder ett par första 
månaden så att efter första må- 
nadens slut finns det två par. Av 
dessa två par föder ett par ett 
nytt par kaniner men det andra 
paret får vänta en månad till in- 
nan de kan producera nya kani- 
ner. Vid andra månadens slut 
finns det alltså 3 (=1+2) kanin- 
par och vid tredje månadens 
slut finns det 5 (=2+3) kanin- 
par. Kommande månad blir det 
då 8 (=3+5). Om vi tittar på tal- 
följden så ser vi något intres- 
sant. 1, 2, 3, 5 och 8, vad kommer 
nästa att bli? Jo, lägg ihop de två 
sista 8 och 5 så får du 13, vilket 
är nästa tal. Fibonacci följden 
har följande definition: Det är 
en oändlig följd av tal, där de två 
första talen är 0 och 1 och varje 
tal i fortsättningen är summan 
av de två föregående. Det blir 
alltså 0, 1, 1,2, 3, 5, 8, 13, 21, 34, 55 
OSV. 

I programmet, som jag har 
gjort kan du se både primtal och 
Fibonaccital. Hur många kani- 
ner blir det på ett år eller två? 
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Hur göra för att 
få fler decimaler? 


För en vecka sedan hade 
Jag en artikel om primtal, 
där programmen blev nå- 
got otydliga. Jag skall ta 
med det intressantaste 
den här gången också. 


En av de som ringde i lördags 
undrade över hur man gjorde 
för att datorn skulle räkna med 
flera decimaler vid en division. 
Alla har gjort erfarenheten att 
datorn ger inte mer än 6 eller 8 
decimaler. Har du en PC kan du 
få upp till 16 decimaler. Hur 
skall man då göra för att kom- 
ma fram till flera decimaler? 


Så gör du 

När man skall lösa ett problem 
så måste man dela upp det i sina 
beståndsdelar. Ta ett papper och 
en penna och sätt igång och 
skriv. Vi tar talen 47/8 om vi gör 
första divisionen så får vi att 
första siffran blir 5 och vi får en 
rest på 7. Efter 5 skall det vara 
ett kommatecken. Nu har vi 7/8 
kvar. Vi multiplicerar 7 med 10 
och får då 70/8, vilket blir 8. Det- 
ta är första decimalen, 8"8=64 
och 70—64=6. Denna siffra mul- 
tiplicerar vi med 10 igen och får 
då 60/8 vilket blir 7, som blir 2:a 
decimalen. 7"8=56 och drar vi 
detta ifrån 60 får vi 4, som vi 
multiplicerar med 10. Nu kom- 
mer divisionen med 8 och vi får 
40/8, som blir 5 och ingen rest. 
Vi har nu fått tre decimaler och 
en heltalssiffra. Svaret blir allt- 
så 5,875. 


Och så datorn 


Om vi nu lämnar papper och 
penna och slår på datorn, så 
skall vi skriva ner ett program 
för att lösa uppgiften. Vi börjar 
med att i rad 10 tömma skärmen 
med ett lämpligt kommando 
CLS eller vad som gäller för din 
dator. Sedan bör vi ha några 
förklarande PRINT-satser till 
exempel: 

20 PRINT:PRINT ”VILKA TAL 
VILL DU DIVIDERA” 

30 PRINT:PRINT ”SLÅ IN TA- 
LEN MED KOMMATECKEN 
MELLAN TALEN”; 

Genom att slå in talen med ett 
kommatecken mellan talen så 
kan jag använda en INPUT- 
sats, så att rad 40 blir: 

40 INPUT T,)N 

Jag använder T för täljare och 
N för nämnare. I rad 50 behöver 
vi en förklarande PRINT-sats. 
50 PRINT:PRINT ”HUR 
MÅNGA DECIMALER VILL 
DU HA”; 

I rad 60 lägger vi en INPUT- 
sats med variabeln D för att ta 






hand om antalet decimaler. 
60 INPUT D 

Nu har vi klarat av hela in- 
matningsbiten och kan gå över 
till beräkningsdelen. Eftersom 
vi har antalet decimaler i en va- 
riabel D så kan vi använda den- 
na i en loop, som börjar så här: 
70 FOR I1=1 TO D 


Heltalsdelen 


Nu skall vi först plocka fram 
heltalsdelen av divisionen. Jag 
hoppas att du kommer ihåg en 
funktion, som heter INT och 
lämpar sig mycket bra för vad vi 
skall göra. 

I rad 80 skriver vi A=INT- 
(T/N). I variabeln A får vi nu re- 
sultatet av T/N där datorn har 
tagit bort decimalerna. I vårt ex- 
empel med 47/8 blir siffran 5. 

I rad 90 låter vi datorn skriva 

ut variabeln A. 
90 PRINT A; 

Semikolon efter A är till för att 
resten av siffrorna skall komma 
att skrivas åt vänster efter var- 
andra. 

Nu är heltalsdelen klar, men 
eftersom vi skall använda l10o- 
pen flera gånger, så måste vi 
sätta ut ett kommatecken efter 
första divisionen, och detta gör 
vi i rad 100. 

100 IF I1=1 THEN PRINT ”;'; 

I nästa steg skall vi ta bort 
A"”N ifrån T. I vårt exempel var 
A första gången 5 och N=8 och 
multiplicerar vi får vi 5"8=40. 

I rad 110 skriver du följande: 
110 T=T-—-A'"N 


Nästa steg 


Nu kommer vi till nästa steg 
som blir att multiplicera resten 
med 10. Resten är T och nu mul- 
tiplicerar vi T med 10 och får då 
i rad 120: 
120 T=T"10 

Nu är vi klara att börja om det 
hela en gång till och därför skri- 
ver vi i rad 130: 
130 NEXT I 

Nu hoppar datorn upp till rad 
70 och gör samma saker igen, 
med undantag av rad 100, som 
den hoppar över eftersom varia- 
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beln I nu har blivit 2. Hela pro- 
grammet blir så här: 
10 CLS 
20 PRINT:PRINT ”VILKA TAL 
VILL DU DIVIDERA” 
30 PRINT:PRINT ”SLÅ IN TA- 
LEN MED KOMMATECKEN 
MELLAN TALEN"; 
40 INPUT TN 
50 PRINT:PRINT ”HUR 
MÅNGA DECIMALER VILL 
DU HA”; 
60 INPUT D 
70 FOR I=1 TO D 
80 A=INT(T/N) 
90 PRINT A; 
100 IF I1=1 THEN PRINT ”;'; 
110 T=T-A"N 
120 T=T"10 
130 NEXT I 

Vill du ha många beräkningar 
så kan du lägga till ett par rader 
i slutet. 
140 PRINT:PRINT ”VILL DU 
HA FLER BERÄKNINGAR 
(J/N)”; 
150 INPUT Q$ 
160 IF Q$="J"” 
THEN 10 

Nu känner datorn av om du 
har svarat JA med stor J eller 
med litet i och hoppar då till rad 
10 för ny beräkning. I alla andra 
fall så avslutas programmet. 


Lycka till! 


OR Q$= = ”j ” 


En repris 


Här kommer nu det snabba 
primtalsprogrmmet från förra 
veckan i repris: 

10 CLS 

20 PRINT"TALET";:INPUT A 

30 GOTO 70 

40 PRINT 2; 

50 A= A/2 

60 IF A=1 THEN 180 

70 IF - (A/2—INT(A/2))< > 0 
THEN B=3:GOTO 90 

80 GOTO 40 

90 C=SQR(A)+1 

100 IF B> =C THEN 170 

110 IF A/B-INT(A/B)=0 THEN 
140 

120 B=B+2 

130 GOTO 100 

140 PRINT B; 

150 A= A/B 

160 GOTO 90 

170 PRINT A; 

180 END 


rs s<——————RRRRRRR AR 
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Så använder du 
indexerade variabler 


De nästa två veckorna 
kommer jag att skriva om 


indexerade variabler, 
som ibland ställer till 
problem. Det kommer 


många frågor om dessa 
typer av variabler. 


För det första så använder 
man två olika namn på samma 
sak antingen indicerade varia- 
bler eller indexerade variabler. I 
fortsättningen kommer jag att 
använda uttrycket indexerade 
variabler. 

När vi använder variabler så 
tar vi bokstäver och ord ur vårt 
alfabet, till exempel A, B, C os v. 
Om jag nu vill ha åtta olika va- 
riabler så kan jag naturligtvis 
använda mig av A, B, C, D, E, F, 
G och H, som variabler. Nackde- 
len är att jag måste ha åtta In- 
put-satser. 


10 Input A 
20 Input B 
30 Input C 
OS V. 


Detta tar onödigt mycket ut- 
rymme. Jag skulle kunna an- 
vända mig av en indexerad va- 
riabel i stället. En indexerad va- 
riabel består av en bokstav eller 
ett ord och ett index inom pa- 
rentes. I exemplen kommer jag 
att använda mig av enstaka 
bokstäver, eftersom en del dato- 
rer inte klarar av ord, som va- 
riabler. 

Jag gör nu åtta variabler med 
hjälp av A och ett index och då 
får jag: 

A(1), A(2), A(3), A(4), A(5), A(6), 
A(7) och A(8). 


Skillnaden 


Vad blir nu den stora skillna- 
den? Jo, att nu kan jag använda 
en loop för att få siffrorna till 
mina indexerade variabler. Så i 
stället för åtta rader med Input 
så får jag följande konstruktion. 


10 For I = 1 To 8 
20 Input A(1) 
30 Next I 


Nu har jag på tre rader klarat 
av mina åtta variabler. Vill jag 
nu ha fler så ökar jag i rad 10 till 
det tal jag önskar. Men om du 
vill ha fler än 10 så måste da- 
torn veta av detta annars blir 
den sur och skriver ”Out of di- 
mension error” eller ”Subscript 
out of range”. Normalt reserve- 
rar datorn plats för 0 till 10, som 
indexerade variabler och skall 
man Över detta, så måste datorn 
i början av programmet ha en 


dimensionering och detta gör vi 
genom att skriva till exempel: 


5 Dim A(20) 
om det är 20 variabler, som vi 
tänker oss att använda. 


Betygshistogram 


Jag skall visa med ett litet ex- 
empel hur man använder index- 
erade variabler. Jag skall göra 
ett program, som i ett liggande 
histogram visar fördelning över 
till betyg. 

Först måste vi ha en inmat- 
ningsloop. 
10 CLS 
20 For I = 1 To 5 
30 Input A(I) 
40 Next I 


I loopen använder jag indexet 
från 1 till 5, som betecknar bety- 
gen. I variablen A(I) skall jag nu 
lägga hur många, som har de 
olika betygen. 

Nu behöver jag en loop, som 
skriver ut det liggande staplar- 
na. 

Ja, i själva verket så behöver 
jag två loopar som är nestade, 
vilket betyder att den ena loo- 
pen ligger inuti den andra på 
följande sätt: 


50 CLS 

60 For I = 1 To 5 

70 Print I;” ”: 

80 For J = 1 To A(I) 
90 Print ”"”: 

100 Next J 

110 Print: Print 

120 Next I 


Värdena 


Den yttersta loopen är I och går 
från 1 till 5. Den innersta loopen 
är J och går från 1 till A(I1), som 
är antalet betyg. Kom ihåg att 
nestade loopar aldrig får korsa 
en annan loop. I exemplet här 
ser du att looparna kommer på 
följande sätt: 


For I = 1 To 5 
For J = 1 To A(I) 
Next J 

Next I 


Den innersta loopen måste va- 
ra avslutad innan nästa loop's 
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index ökar med ett. 

Hur många nestade loopar 
man kan använda beror på da- 
torn. 

Efter staplarna vill jag nu 
skriva ut värdena eftersom jag 
har en CLS (tömmer skärmen) i 
rad 50, som tar bort de inslagna 
värdena. 

För att få värdena under bety- 
gen så använder jag mig av 
Tab-funktionen på följande sätt: 
130 Print: Print: Print 
140 For I = 1 To 5 
150 Print Tab (1"5): I: 

160 Next I 

170 Print 

180 For I = 1 To 5 

190 Print Tab (1I"5): A(I): 
200 Next I 


Lagom avstånd 


Genom att göra två loopar och 
använda index I i Tab multipli- 
cerat med 5, så får jag lagom 
långa avstånd mellan siffrorna. 
Försök med andra tal än 5 för 
att se hur det ändrar sig på din 
skärm. Hela programmet blir 
nu: 


10 CLS 

20 For I = 1 To 5 

30 Input A(I) 

40 Next I 

50 CLS 

60 For I = 1 To 5 

70 Print I: ” ”: 

80 For J = 1 To A(I) 
90 Print ”"”: 

100 Next J 

110 Print: Print 

120 Next I 

130 Print: Print: Print 
140 For I = 1 To 5 
150 Print Tab (1"5): I: 
160 Next I 

170 Print 


180 For I = 1 To 5 
190 Print Tab ("5): A(1): 
200 Next I 

Ändra nu gärna variablernas 
storlek men kom ihåg att du 
måste dimensionera när du 
kommer över 10. 

Nästa vecka är det påsk och då 
fortsätter jag med indexerade 
variabler och hur man använder 
dem i sortering. 
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Repris på 
lottorättningen 


Den här veckan skall jag 
ta en repris på lottorätt- 
ningen, som många haft 
stora problem med. In- 
nan jag börjar med pro- 
grammet skall jag kom- 
ma med en upplysning. 


Det är självklart att om någon 
vill ta upp ett problem, som jag 
kan skriva om, men inte vill att 
deras namn skall synas i tid- 
ningen, så bara skriv det i bre- 
vet. Det är en sak som jag na- 
turligtvis respekterar att man 
vill vara anonym. 


Endast 10 rader 


Lottorättningsprogrammet hade 
en svaghet och det var att det 
inte fanns möjlighet att använ- 
da mer än 10 rader beroende på 
det sätt som jag hade dimensio- 
nerat programmet. Idag har jag 
gjort ett program, som hanterar 
30 rader. För att undvika miss- 
förstånd så tar jag med hela 
programmet 


10 DIM N(30,7),R(30),.T(30) 
20 CLS 
30 FOR I=1 TO 30 
40 FOR J=1 TO 7 
50 READ N(LJ) 
60 NEXT J 
70 NEXT I 
I rad 10 ser du att det måste 
finnas tre dimensioneringar, 
men att man kan skriva dem på 
en rad med kommatecken mel- 
lan variablerna. I rad 20 så töm- 
mer programmet skärmen. 
Raderna 30 till 70 läser in DA- 
TA-satserna och lagrar dem i 
variabeln N(LJ), som är dimen- 
sionerad till 30 rader med 7 
nummer i varje rad. 


Inte läsa in 


När datorn läser in DATA-sat- 
serna, så lagras dessa på ett 
speciellt ställe i minnet och man 
kan sedan inte läsa in dessa 
igen under samma körning. Om 
man av någon anledning skulle 
vilja läsa in DATA-satserna, 
igen så måste man lägga in en 
funktion, som heter RESTORE 
innan man kan göra en ny in- 
läsning av samma DATA-satser. 
Nu till nästa del av program- 
met. 
80 CLS - 
90 PRINT:PRINT ”VILKEN AR 
DEN RATTA RADEN?” 
100 PRINT:PRINT ”SLÅ IN RA- 


DEN NÄR FRÅGORNA KOM- 
MER” 

110 PRINT 

120 FOR 1=1 TO 7 i | 
130 PRINT ”VILKET ÄR RÄTT 
NUMMER?"”:I; 

140 INPUT A(I) 

150 NEXT I - 
160 PRINT:PRINT”VILKET AR 
FÖRSTA TILLÄGGSNUM- 
RET"; 

170 INPUT T1 i 
180 PRINT:PRINT VILKET AR 
ANDRA TILLÄGGSNUMRET?” 
190 INPUT T2 

Här begär datorn information 
om den rätta lottoraden och de 
två tilläggsnumren. 

Nu kommer vi till den avdel- 
ningen där datorn skall rätta di- 
na lottorader. Det är viktigt att 
alla variabler och summeringar 
blir riktiga. I rad 230 står det 
R(1)-R(I1)+1 här räknar datorn 
samman antalet rätt för varje 
rad. 


I rad 250 kontrollerar datorn 
om det finns några tilläggsnum- 
mer. 

Slutet på rad 250 skall vara 
T(I)-T(1)+1. 


”Skumma ” fel 


Tänk på att när ni skriver i ba- 
sic så kan det hända att man får 
en del skumma fel om man inte 
är tillräckligt noggrann med 
syntaxen. I basic kan man slar- 
va rätt mycket men ibland straf- 
fas man med en rad dunkla fel. 


Kom ihåg att när ni skriver 
IF-satser så skall man inte ha 
mellanslag. Se rad 230 det skall 
inte vara: 

IF A(K) - N(LJ) THEN R (I) - 
R (I) + 1, utan titta i rad 230 hur 
det skall stå. Använd inte fler 
mellanslag än nödvändigt. 

200 FOR 1=1 TO 30 

210 FOR J=1 TO 7 

220 FOR K=1 TO 7 

230 IF A(K)=N(LJ) THEN 
R(I1)=R(I)+1 

240 NEXT K 

250 IF T1=N(1LJ) OR T2=N(LJ) 
THEN T(I1)=T(I1)+1 

260 NEXT J 
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210 NEXT I 


Tre loopar 


Lägg märke till att jag har tre 
stycken loopar. Detta kallas för 
tre nästade loopar. Observera 
att looparna inte korsar varand- 
ra utan I-loopen är ytterst och 
sedan kommer J-loopen och all- 
ra innerst har vi K-loopen. 


Nu har vi bara en sak kvar och 
det är utskriften och DATA-sat- 
serna, och här kommer de: 

280 FOR I=1 TO 30 

290 PRINT:PRINT"RAD NUM- 
MER'”;I;”HADE”;R(I);' RÄTT 
OCH”;T(I)” TILLAGGSNUM- 
MER'; 

300 IF R(1D)+T(I)>4 THEN 
PRINT TAB(50);'V I NS T”;:GO- 
TO 320 

310 IF 1/15=INT(1/15) THEN 
PRINT:PRINT :INPUT QQ$ 
320 NEXT I 

330 DATA 2,4,6,12,23,34,35 

340 DATA 4,7,9,10,15,18,19 

350 DATA 7,9,12,15,17,21,25 
360 DATA 5,9,13,16,31,32,34 
370 DATA 12,14,16,17,19,21,34 
380 DATA 13,15,21,24,26,32,35 
390 DATA 21,24,26,27,29,31,34 
400 DATA 23,25,28,29,32,33,35 
410 DATA 12,14,15,19,21,25,26 
420 DATA 1,5,8,14,19,21,27 

430 DATA 1,4,6,12,23,34,35 

440 DATA 4,7,8,10,15,18,19 

450 DATA 7,9,11,15,17,21,25 
460 DATA 5,9,12,16,31,32,34 
470 DATA 12,14,16,17,19,21,34 
3480 DATA 13,15,21,25,26,32,35 
490 DATA 21,24,26,28,29,31,34 
500 DATA 23,25,28,30,32,33,35 
510 DATA 12,14,15,18,21,25,26 
520 DATA 1,5,8,14,19,22,27 

530 DATA 2,4,6,12,23,33,35 

540 DATA 4,7,9,10,15,18,20 

550 DATA 7,9,12,15,17,21,26 
560 DATA 5,9,13,16,31,32,35 
570 DATA 12,14,16,17,19,22,34 
580 DATA 13,15,21,24,26,33,35 
590 DATA 21,24,26,27,29,33,34 
600 DATA 23,25,28,29,32,34,35 
610 DATA 12,14,15,19,21,22,26 
620 DATA 1,5,8,14,19,21,28 

Tänk på att det är bara två lör- 
dagar kvar innan jag gör ett 
sommaruppehåll. Ha en bra 
vecka! 
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Så räkn? 
fram idez 


Tack för alla brev och 
samtal angående bant- 
ning och hur att räkna 
ut vikter. Det finns ett 
annat sätt att räkna ut 
idealvikten och detta 
fick jag i flera olika brev 
den gångna veckan. 


En del hade också gjort pro- 
gram till sina förslag. Alla 
skrev om samma teknik näm- 
ligen att räkna ut ett BMI-vär- 
de. BMI betyder ”Body Mass 
Index”. Det var inget av pro- 
grammen som tog hänsyn till 
att det är skillnad på män och 
kvinnor. 

Jag hittade i Läkartidningen 
nummer 3/89 en artikel av do- 
cent Stephan Rössner och med 
dr Alicja Kuskowska-Wolk. 
Artikeln handlade om längd 
och vikt och där fanns också 
en tabell över BMI-kategorier. 

Tabellen hittar du direkt un- 
der min vinjett är ovan. 


Räkna så 


Hur räknar man då fram BMI? 

Man tar vikten i kilogram 
och dividerar med kvadraten 
på längden i meter. Exempel- 
vis om man väger 104 kg och 
är 188 meter blir BMI 
104/(1.88A& 1.88) =29,4 vilket är 
för högt. Idealvikten för 1.88 m 


och man är mellan 
20.1A 1.88 A 1.88 och 
25A 1.88 A 1.88, vilket blir mel- 
lan 71,0 kg och 88,4 kg. 


Jag har gjort ett program 
kring BMI, som räknar vad du 
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BMI-kategorielkg/m>) Män 


Undervikt 
Acceptabel vikt 
övervikt 


Fetma 


skall väga och tar hänsyn till 
man och kvinna. Du hittar 
programmet här nedan. Det 
finns inga konstigheter i pro- 
grammet. Den första delen tar 
reda på din vikt, längd och om 
du är man eller kvinna. Det 
finns två subrutiner en från 
rad 190 och en från rad 350. 
Den på rad 190 tar hand om 
utskriften för kvinnor. 

Båda rutinerna är nästan 
identiska och skiljer sig bara 
på värdena. 


Kilokalorier 
Jag har fått påpekande från en 


EMI1<20.1 


EBMI330.0 


LÅ 


EMI=20,.1 - 25.0 BM 


BMI=25.1 - 30.0 BMI=. 


BMI >28.. 


0 7abell över BMI-kategorier — se vidare i artikelte. 


del läsare att det heter kiloka- . 
lorier och inte bara kalorier. 
Jag har använt talspråk när 
jag skriver och man talar bara 
om kalorier, men det är helt 
riktigt att den fysikaliska en- 
heten är kilokalorier. 

Ni som vill skicka program 
på diskett i stället för brev kan 
använda antingen PC-kompa- 
tibel diskett eller diskett till 
VIC-64 eller C-128. 

Lycka till med viktprogram- 
met. Nästa vecka kommer ett 
program som räknar fram ki- 
lokalorieinnehållet i olika fö- 
doämnen. 


(J/N) sg 


OCH 


äv. 0 


BÄNTNINGSPROGRAM" 


106 CLS 

=0 FRINT ;FRINT 

30 PRINT TAR (103 2 "BERÄKNING AV DITT VIETTILLSTÄND!" 

40 PRINT i PRINT TAR 1003 "SVARA FÅ FÖLJANDE FRÅGOR" 

Sö PRINT PRINT TAB i1Od 5; "HUR MYCKET VÄGER DU I EG: 

60 INFUT EG 

70 PRINT :FRINT TABO1O) 3: "HUR LANG AR DU SVARA I METER": 
30 INFUT LD 

90 FRINT PRINT TAR I10) "AR DU MAN (M) ELLER EVINNA fED "3 
100 INPUT St 

110 BMI=EG/ (LDXLD) 

120 IF S$="M" THEN GOSUR 190 

130 IF S$t="EK" THEN GOSUR 550 

146 FRINT PRINT TAB (10): "VILL DU GöRAÄ FLER BERANINGAR 
150 INFUT O$ 

160 IF O$="I" OR O$="j" THEN 10 

170 PRINT : PRINT TAR (10): "TACK FÖR DENNA GANG" 

180 END 

190 CLS 

200 PFRINT :FRINT 

210 FRINT TARO1O0 3 "BERÄKNING AV VIEKTFAKTOR FÖR MAN" 

220 PFRINT PRINT TAB O1O) : "DITT BMI-TAÄL=": INT (BMI X10+.50) 7/10 
230 PRINT PRINT TAB (10): "NORMALVAÄRDET LIGGER MELLAN Z0,1 
240 FRINT : PRINT TARUO) 3 "DIN IDEALVIKT BOR LIGGA MELLAN": 
250 PRINT INT i(Z0. 14LDX4LD«410+.5) 7103: "EG OCH":s 

260 PRINT INT (2SKLDKALDK1O0+, 5) 108 "EG" 

270 IF EMI=z20.1 THEN VYV$="UNDERVIET" 

280 IF EMI=25 AND BMI:=20.1 THEN V$="ACCEFTABEL VIKT" 

290 IF EMI<=Z30 AND EMI:=Z25.1 THEN V$="äVERVIEKT"” 

300 IF RBMI:Z0 THEN V$="FETMA" 

310 PRINT PRINT TAR O10) "DU HAR "3 Ve: 

320 IF EMI :25.1 THEN PRINT " OCH BEHÖVER ANVÄNDA ETT 

330 PRINT 

340 RETURN 

300 CLS 

260 FRINT :FRINT 

370 PRINT TAB (1O) a "BERÄKNING AV VIKTFAKTOR FÖR EVINNA" 
380 FRINT : PRINT TAR ii00 3: "DITT BMI-TAL="; INT (EMI K10+,. 50 /10 
390 PFRINT PRINT TABL10) 3: "NORMÄLYARDET LIGGER MELLAN 18.7 
400 FRINT PRINT TAB OO) 3 "DIN IDEALVIKT EOR LIGA MELLAN": 
410 PRINT INT i18. 7Z4LDKLDA10+, 0 103 "EG6 OCH": 

420 PRINT INT 23. 2KLDKLUDE1O0+, SS) 103 "EG" 

430 IF BMI18.7 THEN V$="UNDERYTET" 

440 IF BMIs23.32 AND EMI :=128.7 THEN YV$="ACCEFTABEL VIKT" 
450 IF BMI<=28,5 AND EMI :=Z35.7 THEN Y$="ävVERYVIKT"” 

460 IF EMI:22.4 THEN VY$="FETMA" 

470 PRINT PRINT TÄARSIOj "Ol HAR "3 vå: 

480 IF BEMI:ZS5S.1 THEN PRINT " OCH EEHOVER 

490 PRINT 


sS00 


RETURN 


OCH 23.3" 


ANVÄNDA ETT BANTHINGSPROGRAM" 
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Basicprogram 
till Amigan 


Den här veckan skall jag 
ta upp en icke helt okänd 
dator, nämligen Amiga. 
Anledningen är att så 
många har skrivit och 
frågat om basicprogram- 
mering till Amigan. 
Amigan finns i tre olika model- 
ler: 1000, som var den första 
Amigan, sedan kom Amiga 500 
och 2000. När man skall ladda in 
basicen i datorn så är det skill- 
nad på 1000 och de andra. 

Om du har en Amiga 1000 så 
gör på följande sätt: 

1. Sätt i Kickstart-disketten. 

2. När nu ser Kickstart-symbo- 
len så sätt i Workbench-disket- 
ten. 

3. När du ser symbolerna för 
Workbench så sätt i Extras-dis- 
ketten. 

Om du har en Amiga 500 eller 
2000, så slopa steg 1. 

Amigans basic är från Micro- 
soft och är i grunden samma ba- 
sic som GWbasic och basicen till 
VIC-datorerna. 

När man skall använda basi- 
cen på Amigan så måste man 
klicka fram menyn för Project, 
Edit, Run och Windows. 

Där väljer du Windows och 
sätter i gång och skriver ner mi- 
na program eller dina egna. 

Använd radnummer precis 
som jag gör i mina program. 





Utan radnummer 


Amiga-basicen kan mycket väl 
hantera program utan radnum- 
mer, men det stora problemet är 
att det är svårare att klara av 
det. 

Om du behärskar Pascal, så 
kan du pröva på metoden. Har 
du läst ”Starta med struktur” av 
Sven Burman och Bo Bäckman 
utgiven på Liber och fortsätt- 
ningen ”Fortsätt med struktur” 
av samma författare och förlag, 
så är du också mogen för att 
skriva program utan radnum- 
mer. 

Men framför allt så läs igenom 
den instruktionsbok, som heter 
”Amiga Basic”. Boken finns bå- 
de på svenska och engelska. 

Jag gjorde följande lilla pro- 
gram för att jämföra Amiga 500 
med en vanlig PC med GWbasic. 
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10 CLS 

20 RANDOMIZE(TIMER) 
30 DIM A(1000) 

40 N=300 

50 FOR I=1 TON 

60 A(I)=INT(RND + 1000) 
70 NEXT I 

80 FOR I=1 TO N-1 

90 FOR J=I1+1 TON 

100 IF A(I)< A(J) THEN 120 
110 X=A(I):A(I)=A(J):A(J)=X 
120 NEXT J 

130 NEXT I 

140 FOR I=1 TON 

150 PRINT A(I) 

160 NEXT I 


På PC-datorn tog ovanstående 
program sju minuter och sex se- 
kunder. 

När jag testade samma på 
Amigan trodde jag att den hade 
slutat fungera. Jag fick minska 
N till 40. För att ta ut 40 tal på 
Amigan och sedan sortera dem i 
stigande ordning så tog alltså 
Amigan sex minuter och tio se- 
kunder. PC-datorn tog alltså sju 
minuter för att sortera 300 tal. 
Programmen är skrivna exakt 
lika på de båda datorerna. 


Mycket långsam 


Amigan är mycket långsam 
men har en stor fördel om man 
gillar ljud och grafik. Jag tycker 
att Amigan är den bästa datorn 
på marknaden när det gäller 
grafik och ljud. 

Amiga-basicen innehåller na- 
turligtvis många grafik- och 
ljudkommandon, jag skall bara 
ta upp ett ljudkommando som 
inte är så vanligt. 

Kommandot, som egentligen 
är två heter SAY och TRANS- 
LATE$. SAY kan användas se- 
parat men inte TRANSLATES$. 
Skriv följande på din Amiga: 

SAY TRANSLATES (”Hi there, 
how are you?”) 


Internt engelsk 


Datorn kommer nu att uttala 
ditt meddelande. Tyvärr så är 
datorn internt engelsk, så skall 
du skriva något som även låter 
bra på svenska får du pröva dig 
fram. Testa med följande: 
SAY TRANSLATES$ 
maar du ee dag?”) 


("Hur 


och jämför med den riktiga 
svenskan. 

SAY TRANSLATE$ (”Hur mår 
du i dag?”) 

Amigan innehåller också en 
del bra kommandon för vanlig 
programmering. I exemplet med 
de 40 talen och sorteringen så 
hade man kunnat skriva rader- 
na 100 och 110 som en rad så 
här: 

100 IF A(1)> A(J) THEN SWAP 
A(I),A(J) 

Rad 110 skall alltså bort, nu 
går programmet lite fortare. Nu 
tar det fem minuter och 23 se- 
kunder för 40 tal. 

Slutsats: skall du använda 
Amigan för sortering bör du 
skaffa dig ett snabbare sorte- 
ringsprogram. 





Bra kommandon 


Några andra bra kommandon är 
CHAIN, som kan hämta in ett 
annat basicprogram och i kom- 
bination med COMMON, som 
för över variabelvärdet till det 
nya programmet. 

Det finns även MERGE som 
sätter ihop två program till ett. 
Tänk på att med MERGE så 
måste programmet sparas som 
ASCII-tecken. 

Detta gör du genom att spara 
som SAVE "NAMN”,A. 

När du startar basic på Ami- 
gan så ser du att du har 25.000 
bytes free. Detta är inte så myc- 
ket. Du kan utöka detta med 
kommandot CLEAR. Om du 
skriver CLEAR,45.000 så får du 
ett minne på 45.000 bytes. 

Detta kan du kontrollera med 
kommandot FRE(X) som talar 
om hur mycket ledigt minne du 
har. 

Detta var lite om Amigans ba- 
sic. Har du problem eller frågor 
så skriv en rad till mig. 
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Matteprogram på 
"multipel choice” 


Den här veckan skall jag 
visa ett matematikpro- 
gram, som bygger på 
”multipel choice”-tekni- 
ken. Med ”multipel choi- 
ce” menas att man får en 
fråga och till exempel 
fem alternativ. 


Nu skall man visa vilket alter- 
nativ som är rätt. Jag skall visa 
med ett exempel. 

Vad är 234+654 


A 679 
B 763 
C 888 
D 963 
E 865 

Nu skall man svara C, vilket är 
det rätta alternativet. 

Jag har gjort programmet ba- 
ra för addition, eftersom pro- 
grammet blev för långt med fle- 
ra räknesätt. Resten av pro- 
grammet kommer du att få näs- 
ta vecka. 


Fråga från läsare 


Innan jag börjar med program- 
met skall jag ta en fråga jag fick 
från Arne i Arlöv. Arne hade 
skickat ett brev och en diskett 
låg i brevet. Det var två pro- 
gram, som Arne inte hade lyc- 
kas få att fungera. 

Jag kontrollerade program- 
men och kunde inte hitta några 
fel. Efter provkörning förstod 
jag att det måste vara något fel. 
Jag hade två datorer igång. En 
PC med GWbasic och C-128 med 
Arnes program. Programmen 
var lika men gav olika resultat. 
Var fanns felet? Jo, när jag stu- 
derade variablerna kom jag 
ihåg att det är en stor skillnad 
mellan GWbasic och VIC-dato- 
rernas basic. Om jag i GWbasic 
skriver = följande <variabler 
VMGI1, VMG2 och VM, så har 
jag tre olika variabler. I den ba- 
sicen, som VIC-datorerna har 
blir det bara en variabel. För- 
klaringen är att den basicen ba- 
ra läser de två första tecknen 
och struntar i resten. När jag 
hade ändrat variablerna så fun- 
gerade programmet och jag 
skickade tillbaka disketterna till 
Arne. 


Bara addition 


Nu över till programmet. Detta 
fungerar alltså bara till addition. 
Resten kommer nästa vecka. 

De första 30 raderna är 
PRINT-satser för att förklara 
vad som skall göras. 

Sedan kommer ett uthopp till 
en subrutin, som startar i rad 
440. Subrutinen kontrollerar 
först vilken svårighetsgrad du 
har valt och därefter tar den ut 
de tal som skall adderas. 

I rad 510 tar jag ut den plats 
som det rätta svaret skall ha. 

Raderna 540 till 580 är loopen 
som skriver ut de olika alterna- 
tiven. Lägg märke till raderna 
560 och 570, där jag har använt 
mig av uttrycket CHR$(64+1I). 
CHR$(64+1). CHR$(64+1)=A, 
CHR$864+2)=B osv på detta 
sätt så behöver jag bara två ra- 
der för att skriva ut bokstäverna 
A, B,C och E. 


Rad 610 kontrollerar om sva- 
ret är rätt eller fel. 


I rad 570 ser du att program- 
met gör ett uthopp till en subru- 
tin på raden 700. Denna subru- 
tin tar ut de alternativa svaren 
som är fel och kontrollerar att 
samma tal inte kommer upp två 
gånger. 

Lycka till med programmet! 











em 
UAIORER 


Av Christian Lindeberg 


RÄNDOMIZE CTIMMER) 
CLS 

PRINT: PRINT 
FRINT:FRINT 
PRINT: FRINT 
FRINT:FRINT 


10 
=0 
BO 
40 
= 
fm 
70 
Bö 
50 
100 
110 
120 
130 
140 
150 
150 
170 
1380 
150 
200 
210 
250 
230 
200) 
200 
60 
270 
nt 
290 
RAT) 
310 
RÖ 
SAO 
40 
A50 
AV 
370 
80 
3920 
400 
410 
450 
40 
440 
150 
4AD 
70 
4520 
450 
EO0 
10 
tal 
SA0 
o40 


ot 


SAD 


”"n fv E HN Y "nn 
"SVERSLAGSBERAKNING" 
"VÄLJ RAKNESATT" 


TAR 103 
TÄR (10) 
TAR 100 


FRINT:FRINT TARI100 "i. ADDITION" 
FRINT: FRINT TARIi105 "2. SURTRAKT TON" 
PRINT: PRINT TARI10) "35. MULTIFLIKATION" 


FRINT: PRINT TAR O100 
FRINT:FRINT TAB 10) 
INFUT O 

CLS 

FRINT: PRINT 
FRINT: PRINT 


"4. DIVISTON" 
"VAD VÄLJER DU"x 


TÄRT105 "VILEEN SVAÄRTGHETSGRAD" 


FRINT:FRINT TÄRT103 "VILI DU HA" 
PRINT: FRINT TAB i1O0) "LAÄTT=L" 


FRINT:FRINT TARO10) UMEDEL=M" 


FPRINT:FPRINT TAB i(10) "SVAR=S" 

PRINT: PRINT TAB U1O0) "GAR DITT VAL": 

INFUT V$ 

CLS 

FRINT: PRINT 

FRINT PRINT TAB T100 NU KOMMER TIG FRÅGOR" 
PRINT: PRINT TAB OIO3 COU SKALL VÄLJA ETT AV DE" 
FRINT: PRINT TÄRIO1OG "FEM ALTERNATIVEN" 
FRINT: PRINT TABO1OX> "AA, EB, CC, D ELLER EE" 
FRINT: PRINT TAB IIOX "LYCKA TILLIOGG 
FRINT:FRINT TARBIi10) UTRYCE På RETURN": 
INPUT WE 

IF 0=1 THEN SOSUR 440 

IF 022 THEN GOSUR Aa70 

IF o0s5 THEN SOSUR 680 

IF f2=4 THEN GOSUB A980 

CLS 

FRINT: FRINT 

PRINT; FRINT 

FRINT: PRINT 

FRINT: PRINT TAB (105 "OU HADES RURATT AV dö" 
FRINT:FRINT TAB O10) "TRYCK Få RETURN: 
INFUT vi$ 

CLS 

GOTO 30 

CLS 

IF Våästl"t THEN N=100 

IF Ve=s"tM" THEN N=5B00 

IF V$="S"' THEN N=1000 


F=TNTIÖRNDXN) 
L=INTÖRNDXN) 
SVARISP+L 
FE=INTIRNDAE0 +1 


FRINT:FRINT TABi1O0) "VAD AÄRUSP: t+tsla 


T=ET+I: PRINT TAB CIO) "FRÅGA NRUST 

FOR I=1 TO S 

IF Isök THEN 570 

FRINT:FRINT TÄARO1O) CHR LA4+D 3 TAR Ö200 3 
SVARR ACD SVARS BÖTO 20 


PRINT: FRINT TAR 10) 
NEXT I 
PRINT: PRINT TAB 10) 


CHESS (64+1) ; TAR (20) 5 2 GÖSUB 700 


UVILEET AR RATT ALTERNATIV” S 


00 INFUT WE 

610 IF WE=SCHR$ i64+60 THEN PRINT: PRINT TÄRBT10)0 
"RÄTT": ReR+1:GOTO 30 

ArvÖ FRINT:FRINT TARO "FEL" 

Hö PRINT: FRRINT TAB C105 UTRYCE PÅ RETURN": 

40 INPUT bi 

Son IF T=10 THEN RETURN 

H60 GOTO 440 

70 REM 

ARÖO REM 

650 REM 

700 SESVAR+INT ÖRNDESVAR) 

710 (11 =5 

720 FOR J=1 TO SS 


30 IF JÄÖI AND 011 =5 THEN GOTO 700 
740 NEXT Id 

Zon FRINT SS 

760 RETURN 
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Skolprogram 


Efterfrågan på skolpro- 


gram har ökat. Denna 
gång fick jag ett önske- . PI 


mål om glosträningspro- 


gram, som sparade glo- ; 
sorna och kunde använ- | | 


das till flera språk. 
För att lösa ett sådant problem Av Christian Lindeberg 
måste man ta sekventiella filer 


till hjälp eftersom en lösning |A p=o:F=0:DIM 





SV$ (500) ,EN$ (500) i: RANDOMIZE CTIMERA 


med DATA-satser blir stort och 20 CLS 
es äs ; 30 ANTAL=0:0=0:R=0 
onödigt komplicerat. an 40 PRINT: FRINT TAB (10) "GLOSTRÄNINGSPROGRAM"” 
Programmet har en inläs- = so FRINT:FRINT TAB(10)"1. TRÄNA GLOSOR" 
; om 3 ; 60 FRINT:PFRINT TAB(100)"2. SERIVA IN NYA GLOSOR" 
ningsrutin 1 raderna 170 till 220 70 PRINT:FRINT TARBL10) "3. AVSLUTA" 
och en inskrivningsrutin 1 ra- 80 PRINT: PRINT TAB (10) "VAD ÖNSKAS"; 


derna 970 till 1040. Programmet = ?O0.mNFUlIC AA osa THEN 20 
är skrivet i GWBasic, så skall du = iiö on o GoTO 120,720, 1050 
använda en VIC-64 eller C-128. 120 ELSE en 
o o .s 30 = 250 
så får du ändra rad 170 och rad 140 PRINT: FRINT TAB (10) "VAD HETER FILEN MED DINA GLOSOR" 


970 på följande sätt om du har = 1350 PRINT:PRINT TAB(10) "SKRIV NAMNET OCH TRYCK Få RETURN"; 


diskettstation: 170 OPEN"I",4l> NÄMNS 

170 OPEN 1,8,1, NAMNS$+"”,S.R” 180 InfuTHi,N 
970 OPEN 1,8,1, NAMN$+"”,S,W” Ao lve - 
Om du har bandspelare så får — 210 next PVE ENE SEN 


du skriva på följande sätt, 230 Få 
170 OPEN 1,1,0, NAMNS 240 IF F=1 THEN 780 
970 OPEN 1,1,1, NAMN$ 250 CLS 


vin - mn 260 PRINT: PRINT TAR (10) "GLOSTRAÄNING" 
Glöm inte att CLS (tömma skär- = 270 L=INT(RNDXN)+1 


2680 FRINT:FRINT TAR (10) "TRYCK FÅ S OM DU VILL HÄ DET SVENSKA ORDET" 
men) heter PRINT CHR$(147) 290 FRINT:FRINT TAB (10) "ANNARS TRYCK FÅ T"3; 


på VIC-64 och C-128. 300 INPUT 00$ 
3 310 IF 00$="3" THEN 520 
Du kan använda programmet = 330 I=INtORNDAN) +i 


till hur många språk som helst. — 330 FEL=0 


Tänk bara på att du håller reda = 246 ANTAL=ANTAL+I cc ur 
e . . . 350 PRINT: PRINT TAB (10) "VAD BETYDER ";ENS$(L):" "3 
på namnen till de filer där du = 220 InFut svars 
lägger dina glosor. Du kan hela 370 IF SVAR$=5V$ (L) THEN R=R+1:60TO 450 
. oc e ee är 380 PRINT: PRI O) "FEL riven 
tiden öka på antalet glosor 1 diN 390 FEL=FEL+1: IF FEL=3 THEN PRINT: PRINT TAB OO) "SVARET= "SV$(L):GOTO 320 
fil. Programmet innehåller inga = 400 IF FEL;O THEN 250 
; z 410 PRINT: FRINT TAB (10) "VILL DU SLUTA SA TRYCK PA M ANNARS RETURN": 

konstigheter utan det är bara = d30 inrut oos 
att skriva rakt upp och ned. 430 IF 00$="M" THEN 20 

I 3 440 GOTO 320 

tt ANT NTnpå upptäcker du 450 PRINT: PRINT TAB (10) "RÄTT! flin 
att det står till exempel F=1 och 460 PRINT:PRINT TABUO) "DU HAR SVARAT PÅ"; ANTAL: 
P=1. I rad 10 har jag nollställt 470 PRINT "FRÅGOR OCH HAR HAFT” a Ri "RÄTT | 
variablerna. F och P använder 480 PRINT: PRINT TAB (10) "VILL DU SLUTA SA TRYCK FÅ M ANNARS RETURN"; 
jag som flaggor. Om jag redan = soc IF 00$="M" THEN 20 
har laddat in en fil så är F=1 = 210 60T0 530 


I I . a . 570 L=INT(RNDXN) +1 
och jag behöver inte läsa in den = = 5zo0 FEL=0 
till minnet igen. P använder jag 229 ANTAL=ANTAL+E cc 

ec . . . 550 PRINT: PRINT TAB ULO) "VAD EETYDER ":SV$(L) sf Os 
när jag skall läsa in nya glosor = 20 Ineut svans 
. . . . . st - 
och glosfilen inte finns i minnet. — 570 IF SvAR$=ENS$(L) THEN R=R+1:G0TO 650 
Då läser programmet för st in 580 PRINT:PRINT TAR(10) "FEL ran 

se o SF0 = +1: =5 'R FR OO) "SVARET= "EN$ (LL) : GOTO 520 

glosorna för att veta hur många 200 IE FELS0 THEN Se THEN FRINT:FRINT TAE (1 VÄRET EN$(L) : GOTO 5S 
som finns. Därefter så kan man 610 PRINT:FRINT TAB (10) "VILL DU SLUTA SA TRYCK Få M ANNARS RETURN": 
fortsätta med nya glosor. Lycka = 230 IN ä0sctM" THEN 20 
till med programmet och har du =+4&46 GoTo 520 

A A 4 650 PRINT: FRINT TAB (10) "RÄTTER Ii rada 
nagra problem sa skriv. 660 FRINT:FRINT TAR (10) "DU HAR SVARAT FA": ANTAL: 
670 FRINT "FRAGOR OCH HAR HAFT"; RI "RÄTT" 
680 FRINT:FRINT TAR (10) "VILL DU SLUTA SÅ TRYCE FÅ M ANNARS RETURNS 
690 INFUT R0$ 
700 IF 00$="M" THEN 20 
710 GOTO 520 

20 CLS 
730 PRINT: PRINT TAB (10) "AR DET EN NY FIL": 
740 INFUT OC$ 
750 IF Q0$="JI" THEN GOSUBR 920 
760 IF F=i THEN 780 
770 F=1:G6G0T0O 150 
780 CLS 
790 FRINT:FRINT TAB (10) "INSERIVNING AV NYA GLOSOR" 
800 FRINT:FRINT TAB U1O) "SERIV FÖRST GLOSAN FÅ SVENSKA" 
810 FRINT:FRINT TABR(1OO "SEDAN FÅ DET FRÄMMANDE SPRÅKET" 
820 N=N+1 
830 FRINT:FRINT TAR (10) "DET SVENSKA ORDET": 
840 INFUT SVF (N) 
850 FRINT:FRINT TAB (10) "DET FRÄMMANDE ORDET": 
850 INFUT EN$ (IN) 
870 FRINT:FRINT TARBR(1O0) "FLER GLOSOR (J/N) "3 
880 INFUT DO 
B90 IF O0$="1" THEN 820 
s00 GOSUR 950 





9210 GOTO 20 
920 CLS 
930 F=1 


940 FRINT: PRINT TAB (10) "VAD HETER FILEN MED DINA GLOSOR" 
950 PRINT:FRINT TAB (GO) "SERIV NAMNET OCH TRYCK PÅ RETURN": 
260 INFUT NAMNS 

970 GPEN"O", äl, NAMNE 

980 FPRINTHI1.N 

990 FOR Kk=1 TO N 

1000 PRINTH1, SV$ (KD 

1010 PRINTH1, ENS (ED 

1020 NEXT kl 

1030 CLOSE 1 

1040 RETURN 

1050 END 


= — RTR nn 
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Program för lösning av 
enklare ekvationer 


Den här veckan fortsätter 
matematiken med något 
enklare. Sven A, Malmö 
vill ha ett program, som 
ger lösningar på enkla 
ekvationer av =: typen 
Y=K"X+L. Jag har skri- 
vit ihop ett program, som 
skall klara de flesta ekva- 
tioner. 


Det kom också ett brev från 
Enar N i Markaryd, som hade 
ett speciellt problem. Enar har 
en ABC 802 och undrar hur han 
skall ändra i ett program. Pro- 
grammet det gäller är från maj 
1987 och handlar om att hantera 
sin kassabok med hjälp av da- 
tor. Problemet är att program- 
met lagrar uppgifterna på disk 
och hur skall detta göras på en 
ABC 802? 


I programmet ser det ut så 
här: 
580 OPEN ”T", 4 1, ”KASSABOK” 
O 


LJ 

LJ 

670 CLOSE 1 
O 

690 OPEN 


BOK” 
LJ 


”O", 41, ”KASSA- 


O 
780 CLOSE 1 

Om jag kommer ihåg riktigt, 
det är fem år sedan jag satt vid 
en ABC-dator, så skall man 
skriva på följande sätt: 


DIM T(200) 

CLS: N=0:F=0 
30 PRINT 
40 PRINT 
S0 FRINT 
60 INFUT FK 
70 FRINT 
80 INFUT L 
DÖ 

100 
110 
120 
1:30 
140 
150 
150 
176 
180 
190 
200 
210 


10 


20) 


FOR I1=-100 
N=EN+1 

TIN) =FNA CD) 
IF F=0 
IF FNA TIS =0 
IF SEN OCT iND 0: 
F=1 
MIN=SGN ET ONd)) 
NEXT I 

N=0 

FOR I=E (1) 
N=N+1 
TIND=FNA CD 
IF FNA CD =0 


TC 


TE0 


pe 
TR0 


240 
260 MIN=SGN ET ON) ) 
60 NEXT I 
270 N=0 
260 FOR I=E 1) TC 
2590 N=EN+1 

300 TIND=FNA CD? 


10 IF 


320 
330 MIN=SGN OT EON) I 
NEXT I 

REM 

N=0 

FOR I=E (1) 
N=N+1 

TIN =FNAÅ CD 
IF AES IT IN) )« 
MIN=SGN (OT ON)) 
NEXT I 
REM 
FRINT 


340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


PRINT Li "=O" 
PRINT 
END 


"PRINT TAR (10): "LÖSNING AV 
PRINT TAR (102 
IFRINT TAB (1023: 
PRINT TAR (100: 
DEF FNACX)=KXX+L 

TO 100 


THEN 160 
THEN SVAR=I: GOTO 
SMIN THEN Et1)=I-1:E(25=1I+1:G0OT0 


EC) 


IF SGNOT (ND) DE 


E (2) 


ARS IFNA (100: 


IF SGN OT ON) De MIN 


TO EC2) 


PRINT TAB (10)3 
IF SGN (LL) =1 THEN FRINT 


PRINT TAR 1003 










580 OPEN ”KASSABOK” ASFI- 
LE 1 
Oe 


O 
670 CLOSE 1 
LJ 


690 PREPARE ”KASSABOK” 
ASFILE 1 
SJ 


Ö 
780 CLOSE 1 

När du lagrar programmet så 
skriver du SAVE KASSA. Om 
du vill ha filen på en annan dri- 
ve så skriver du SAVE SF1: 
KASSA. Jag hoppas att det är 
rätt. Om några av mina läsare 
har en annan uppfattning så 
skriv en rad till mig. 

I Enars brev fanns en fråga 
som jag inte förstod. Du frågar 
om programmet är lämpligt för 
strängvariabler. Kan du utveck- 
la det lite mer i ett brev så kan- 
ske jag kan besvara frågan. 


Letar fram roten 


Nu över till ekvationerna. Jag 
har gjort ett program, som letar 
fram den rätta roten till ekva- 
tionen. Principen är att datorn 


430 


STEF .v 1 


THEN SVAR=I: GOTO 450 
MIN 


THEN EC1)=I-. 1:E 


STER 01 


THEN El) =I-. 


STEF 2001 


001 THEN SVAR=I1: GOTO 


sr > 
+"; 


Av Chris EL Lindeberg 


THEN SVAR=I: GOTO 
Öl:Ei2)=I+, 01 


"I EKVATIONEN": Es 


NÄR X="3 INT (SVARK1O000+, 50 / 





Hem 


kontrollerar när ekvationen blir 
noll och hoppar då till en ut- 
skriftsdel. Om vi tar ekvationen 
Y=2"X-4, då letar datorn tills 
den <hittar «lösningen = till 
2"X-4=0, vilket i det är fallet 
blir X=2. Programmet går i tre 
steg. Först grovsorterar pro- 
grammet ut var någonstans 
mellan -100 och 100 roten ligger. 
Ar det en jämn rot så hoppar 
den direkt till utskrift, annars 
tar den intervallet där X-värdet 
ligger och testar i steg om 0,1. 
Detta kan du se i rad 280. Sedan 
upprepas samma sak och i nästa 
led testas X i steg om 0,01. 

Lägg märke till rad 90 där jag 
har använt funktionen DEF 
FNA(X). Denna är mycket an- 
vändbar när man löser ekvatio- 
ner. 

Två andra funktioner, som jag 
också använt är SGN och ABS. 
SGN() blir -1 om talet är nega- 
tivt, 0 om det är 0 och 1 om det 
är ett postivt tal. 

ABS() gör alla tal positiva. 

Har du några frågor på pro- 
grammet så skriv en rad. 

Lycka till! 


ENKEL EKVATION” 
s "AV TYPEN Y=EXX+L" 
"VILEET VÄRDE HAR 


kg 


IVILEET VÄRDE HAR Ls 


1580 


(Er) =I+,. 1:6GTO 270 


450 
GOTO 60 


430 


vN > å yx " H 


10000 
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I dag avslutar 
vi mattekursen 


Snart är sommaren 
här och då brukar jag 
göra ett sommaruppe- 
håll, men inte denna 
sommar. Jag tänker att 
under sommarveckor- 
na köra en kurs i ba- 
sicprogrammering rån 
början. 


Alla ni som känner att ni 
har några luckor i ert kun- 
nande får nu chansen att fyl- 
la igen dessa. 


Den här veckan avslutar 
jag matematikprogrammen, 
med att ta fram ett program 
för att lösa andragradsekva- 
tioner och för att lösa ekva- 
tionssystem. 


Programdelen för andra- 
gradsekvationer löser ekva- 
tioner av typen: 
A'R+B"'X+C=0 
Ekvationssystemdelen löser 
följande ekvationssystem: 





em 
UARIORER 


ses efter den allmänna meto- 
den vars formel ser ut på föl- 


jande vis: skrivit XXX. 

: Här kommer läxan: 
X1=—B/(A"2)+SQR 10 GOTO XXX 
((B/(A”2)) —C/A)) 20 PRINT ”ÄR”; 
X2=—B/(A"2) -SQR((B/ 30 GOTO XXX 
(A"2))' —C/A)) 40 PRINT ”"” 

Båda programdelarna kon- 50 GOTO XXX 
trollerar också att systemen 60 PRINT ”DATA”: 
har en lösning. 70 GOTO XXX | 
Liten läxa 0 GOTO KRK 
Nästa vecka skall jag börja 100 END 


med basickursen och jag 


ARX+bY=C tänker att försöka ge er lite följande på skärmen: 
D'X+EY=F läxa under veckan. DATA ÄR KUL! 
Andragradsekvationerna lö- Den första läxan blir att Lycka till med läxan! 

10 CLS 

20 PRINT PRINT TAR (10): "MENY" 

30 PRINT PRINT TAB (10): "1. ANDRAGRADSEKVATIONER" 

40 FRINT :PRINT TAR(10):"2. EKVATIONSSYSTEM MED TVA OBEKANTA" 

50 PRINT :PRINT TAB (10) 3"3. AVSLUTA" 

60 PRINT :PRINT TAB (10); "VAD ÖNSKAS"; 

70 INFUT OO 

BO IF Q<1i AND 033 THEN 10 

90 ON O GOTO 110,500,820 

100 GOTO 10 

110 CLS 

120 PRINT : PRINT TAR (10) 3; "ANDRAGRADSEKVATIONER” 

130 PRINT :PRINT TAB (10) ;" 2"; 

140 PRINT TAR(10); "FORMEN SKALL VARA: AkX+ExX+C=0" 

150 PRINT :PRINT TAB(10); "A="; 

160 INFUT A 

170 PRINT :PRINT TAB (10) 3:"B="3 

180 INPUT EB 

190 PRINT : PRINT TAB (10) 3 "C="37 

200 INPUT C 

210 PRINT : PRINT 

220 IF A=0 THEN 320 

230 EB=E/A 

240 C=C/A 

250 A=1 

260 IF BXB-4xC<0O THEN 460 

270 PRINT :PRINT TAB (10); "X1=";0-B/2+(SOR(EXB-4x0C))/2 

280 PRINT :PRINT TAB (10); "X2="3; 0-B/2- (SOR (EXR-4xC))/2 

290 PRINT :PRINT TAB (10); "TRYCK PA RETURN"; 

300 INPUT 00$ 

310 GOTO 10 

320 IF B=0 THEN GOTO 370 

330 PRINT :PRINT TAB (10); "X=";0-C/B 

340 PRINT :PRINT TAB (10); "TRYCK PÅ RETURN"; 

350 INPUT 00$ 

360 GOTO 10 

370 IF C=0 THEN GOTO 420 

380 PRINT :PRINT TAB (10); "EKVATIONEN SAKNAR LÖSNING" 

390 PRINT :PRINT TAB (10); "TRYCK PÅ RETURN"; 

400 INPUT 00$ 

410 GOTO 10 

420 PRINT :FRINT TAB (10); "EKVATIONEN SATISFIERAS AV ALLA X-VÄRDEN" 

430 PRINT :PRINT TAB (10); "TRYCK PÅ RETURN"; 

440 INPUT 00$ 

450 GOTO 10 

460 PRINT :PRINT TAB (10); "TRYCK PÅ RETURN"; 

470 INPUT Q0$ 

480 GOTO 10 

490 END 

500 CLS 

510 FRINT : PRINT TAB (10); "EKVATIONSSYTEM MED TVÅA OBEKANTA" 

520 PRINT :PRINT TAB (10); "FORMEN SKALL VARA" 

530 PRINT :PRINT TAB (10); "AkxX+BxXxY=C" 

540 PRINT :PRINT TAR (10); "DXX+EXxY=F" 

550 PRINT :PRINT TAB (10); "A="; 

560 INPUT A 

570 PRINT :PRINT TAB (10); "B="3 

580 INPUT & 

590 PRINT :PFRINT TAB(10) 3; "C="3 

600 INPUT C 

610 PRINT :PRINT TAB(10) 3; "D="3 

620 INFUT D 

630 PRINT :PFRINT TAB (10); "E="3 

640 INPUT E 

650 PRINT :PRINT TAR (10); "F="; 

660 INFUT F 

670 IF EXD-AXE=0 THEN 730 

680 PRINT :PRINT TAB (10): "X="3; (BXF-CkE) / (BXD-AxXE) 

690 FRINT :PRINT TAB (10): "Y="3 (CKD-AxXF)/ (BXD-AxE) 

700 PRINT :PRINT TAB(10):; "TRYCK PÅ RETURN"; 

710 INFUT 00$ 

720 GOTO 10 

730 IF ExF-ExC=0 THEN 780 

740 PRINT :PRINT TAR (10); "EKVATIONEN SAKNAR LÖSNING" 

750 PRINT :PRINT TAB (10); "TRYCK FÅ RETURN": 

760 INFUT 00$ 

770 GOTO 10 

780 PRINT PRINT TAR (10); "EKVATIONEN SAKNAR ENTYDIG LÖSNING" 

790 PRINT : PRINT TAB(10); "TRYCK FÅ RETURN"; 

800 INPUT 00$ 


Av Christian Lindeberg 


funder ut vilka radnummer 
som skall finnas där jag har 


Din dator skall nu skriva ut 
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Basicskola i sommar 


Nu har juni månad börjat 
och även sommaren. He- 
la sommaren kommer jag 
att ha en basicskola. Jag 
skall försöka lära er en 
del basic och några olika 
tips, som kan vara bra att 
ha när man programme- 
rar. 


Först skall jag svara på ett 
brev från Leif Ax i Staffanstorp. 
Leifs fråga är lätt att besvara, 
men komplicerad att göra ett 
program till. 

Leifs fråga lyder så här: 

Kan jag ta en fil från mitt ord- 
behandlingsprogram och  till- 
sammans med glosträningspro- 
grammet från den 22 april göra 
rättningar i det, som jag skrivit 
med hjälp av ordbehandlings- 
programmet. Svaret är givetvis 
ja, MEN programmet, som skall 
göra jobbet blir mycket kompli- 
cerat och ligger långt utanför 
den här artikeln. 


Tecken för tecken 


Principen är att du gör ett pro- 
gram, som läser in din text tec- 
ken för tecken och delar upp 
den i ord. Detta gör den genom 
att känna av mellanslaget mel- 
lan orden. Mellanslagen har AS- 
CII-koden 32 decimalt. När man 
sedan lagrat orden i indexerade 
variabler kan man börja att leta 
upp och jämföra orden. De rikti- 
ga orden bör man då ha lagrade 
i en egen fil. Denna fil bör vara 
randomfil för att inte ta upp för 
mycket minne. Sekventiella filer 
tar upp mycket minne eftersom 
hela filen måste laddas in på en 
gång. 

I någon av mina tidigare artik- 
lar finns ett program, som visar 
hur man känner av de olika or- 
den. Jag skall leta efter artikeln 
och återkomma under somma- 
ren. 

Nu över till basicskolan. Du 
fick en läxa förra veckan. Jag 
hoppas att du har hunnit lösa 
uppgiften. Här kommer läxan 
igen. 

10 GOTO XXX 
20 PRINT ”AR'”; 
30 GOTO XXX 
30 PRINT ”!” 

50 GOTO XXX 


Av Christian Lindeberg 


60 PRINT ”DATA"”; 
70 GOTO XXX 
80 PRINT ”KUL'”; 

90 GOTO XXX 
100 END 

Du skulle sätta in riktiga rad- 
nummer istället för XXX, så att 
utskriften blev DATA AR KUL! 
Vad man då måste tänka på är 
att GOTO-instruktionen är ett 
ovillkorligt hopp, vilket ofta 
man glömmer bort. GOTO gör 
att datorn hoppar till ett visst 
radnummer och FORTSÄTTER 
därifrån vidare mot högre rad- 
nummer. 

Det första GOTO i rad 10 skall 
alltså hoppa till PRINT-satsen, 
som skriver ut ordet DATA. 
Detta sker i rad 60, då skall rad 
10 se ut så här: 

10 GOTO 60 

När datorn kommer till rad 60 
så skriver den ut ordet DATA 
och OCH GÅR DÄREFTER 
TILL RAD 70. I rad 70 skall den 
sedan få instruktion att hoppa 
till nästa rad med orden AR. Or- 
det AR befinner sig i rad 20, så 
att rad 70 kommer att se ut så 
här: 

70 GOTO 20 

Från rad 20 går den sedan till 
rad 30 och får där instruktionen 
att hoppa till rad 80. Från rad 80 
går programmet till rad 90 och 
härifrån skall den hoppa till rad 
40. Från rad 40 går programmet 
till rad 50 där den skall hoppa 
till END på rad 100. Så komplett 
ser programmet ut så här: 

10 GOTO 60 

20 PRINT ”AR'”; 

30 GOTO 80 40 PRINT”! 
50 GOTO 100 

60 PRINT ”DATA'”; 

70 GOTO 20 

80 PRINT ”KUL'”; 

90 GOTO 40 

100 END 

Kör nu programmet och se att 
det fungerar. 





Det finns många olika pro- 
grammeringsspråk och de har 
olika sätt att skrivas. En del 
språk behöver radnummer men 
det stora flertalet klarar sig bra 
utan. 


Använd radnummer! 


Basic är ett språk, som i de fles- 
ta fall måste ha radnummer. Jag 
säger i de flesta, eftersom AMI- 
GA-basic till exempel inte behö- 
ver några radnummer. Oavsett 
vilken basic du använder så 
skulle jag föreslå att du som ny- 
börjare alltid använder radnum- 
mer. 

I programmet har jag använt 
två instruktioner GOTO och 
PRINT. GOTO har jag förklarat, 
men inte PRINT. PRINT använ- 
der jag i exemplet för att skriva 
ut de olika orden. Lägg märke 
till att när jag vill att datorn 
skall skriva ut ord så måste jag 
ha citationstecken på båda sidor 
om ordet. 


Räkneinstruktion 


PRINT kan också användas som 
en räkneinstruktion och bokstä- 
ver utan citationstecken blir va- 
riabler. Låt oss titta på en del 
exempel. 

Skriv ner mina exempel på din 
dator och kontrollera själv. 

PRINT 342 tryck på RE- 
TURN. 

Nu kommer datorn att skriva 
ut talet 6. PRINT har alltså gett 
datorn i uppgift att räkna ut vad 
2&3 är och skriva ut det på 
skärmen. Datorn kan hantera 
alla räknesätt, så skriver du föl- 
jande: 

PRINT 2+196/7 så svarar da- 
torn med 30. Datorn gör först di- 
visionen och sedan additionen. 
Nästa vecka skall jag fortsätta 
med PRINT och variabler. Lyc- 
ka till! 
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Något om DOS 
till PC- rer 


Basicskolan fortsätter 
och jag tänker också fort- 
sätta med PC-datorer ge- 
nom att skriva om DOS- 
systemen. Det underlät- 
tar mycket om man kan 
arbeta i DOS-miljö på en 
PC-dator. 


Först ska jag ta läxan från för- 
ra gången. Ni fick två rader, som 
såg ut så här: 

10 A$="236 00 HÖLLVIKEN” 
20 B$="231 00 TRELLEBORG” 

Sedan skulle ni fortsätta pro- 
grammet så att datorn adderade 
ihop talen 236 och talet 231. Här 
kommer svaret och även på den 
svårare delen med 23600+23100. 
10 A$="236 00 HÖLLVIKEN” 

20 B$="231 00 TRELLEBORG” 
30 C$= MIDS(A$,1,3):REM 236 

40 D$= MIDS$(B$,1,3):REM 231 

50 E$= MIDS(A$,5,2):REM 00 

60 F$=C$+E$ :REM 23600 

70 G$=D$+E$ :REM 23100 

80 K=VAL(C$) :REM ÖVER- 
FÖR TILL NUMERISK VARIA- 
BEL 

90 L=VAL(D$) :REM ÖVER- 
FÖR TILL NUMERISK VARIA- 
BEL 

100 M=VAL(F$):REM ÖVER- 
FÖR TILL NUMERISK VARIA- 
BEL 

110 N=VAL(G$) :REM ÖVER- 
FÖR TILL NUMERISK VARIA- 
BEL 

120 PRINT K+L 

130 PRINT M+N 

140 END 

Jag har lagt REM-satser (RE- 
MARK) efter raderna för att du 
skall se vad jag plockar ut av 
strängen. I raderna 120 och 130 
lägger jag bara ihop talen. Sva- 
ren skall bli 467 och 46700. 


Stränguttryck 


Det finns ett stränguttryck till, 
som jag tycker man ska kunna, 
och det är LEN(). LEM() räknar 
ut hur många tecken det finns i 
strängen. Vi tar följande sträng: 
10 AF="SOMMAR” 

20 PRINT LEN(A$) 

Nu kommer datorn att svara 
med talet 6, som talar om att det 
finns 6 tecken i strängen A$. Ta 
och pröva med några andra 
strängar. 

I dag ska vi ta en till instruk- 


Hem 
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tion, nämligen IF ...THEN, som 

testar om något är sant eller 

falskt. Är det falskt så hoppar 

den vidare, men är det sant går 

den till uttrycket efter THEN. 

Ett exempel: 

10 INPUT A 

20 IF A=6 THEN 40 

30 GOTO 10 - 

40 PRINT ”TALET AR SEX” 
Om du i raden 10 ger värdet 6, 

så hoppar datorn till rad 40 an- 

nars går den till rad 30 där den 

hoppar till rad 10. Om du har en 

basic med IF..THEN..ELSE så 

kan du skriva programmet så 

här: 

10 INPUT A 

20 IF A=6 THEN PRINT"”TA- 

LET ÄR SEX” ELSE 10 


Testa ”HEJ” 


Läxan till nästa vecka blir att 
skriva ovanstående program 
men använda strängar och testa 
ordet ”HEJ”. 

Nu över till DOS-system till 
PC-datorer. Jag kommer i fort- 
sättningen att kalla den för 
DOS-skolan. 

När datorn startar måste det 
finnas DOS på disketten eller 
hårddisken DOS är operativsy- 
stemet, som ofta kallas MS-DOS 
efter tillverkaren MicroSoft, vi 
ska lära oss att behärska. 

Datorn har startat och på 
skärmen ser du antingen: A> 
eller A: (diskettsystem med en 
eller två diskettstationer), eller: 
C> eller C: (Hårddisk). 

Jag kommer bara att beröra 
kommandon, som finns i versio- 
ner över 2.00. Detta kan du testa 
genom att skriva VER och tryc- 
ka på RETURN. Nu svarar da- 
torn med den DOS-version du 
har. 


Formatering 
Den första åtgärd vi ska ta är 


att formatera några disketter. 
Formateringen är till för att an- 
passa disketterna till ditt DOS- 
system. Om du har två diskett- 
stationer så sätter du system- 
disketten i A: och en oformate- 
rad diskett i B: På en del PC-da- 
torer kallas A: för 0: och B: för 1:. 

Nu skriver du följande: FOR- 
MAT B: /S. Om du har hårddisk 
så skriver du så här: FORMAT 
A:/S. 


Detta kommando består av tre 
delar. FORMAT, som är själva 
kommandot och det andra som 
är parametern, som talar om vil- 
ken diskettstation den oforma- 
terade disketten sitter i. Det 
tredje uttrycket är en parame- 
ter, som talar om att du vill att 
operativsystemet DOS också 
skall läggas på disketten. 


Om du inte vill ha DOS på dis- 
ketten, hoppar du över /S. Kom 
ihåg att en formatering tar bort 
all information som har funnits 
på disketten. 


Kopiera 
När formateringen är klar så ta- 


lar datorn om detta på följande 
sätt: 


Formating ...formating  com- 
plete 
System transferred 


362496 bytes total disk space 
40960 bytes used by system 
321536 bytes available on disk 
Format another (Y/N) 

Om du vill formatera fler så 
svarar du med Y annars med N. 
När du har formaterat dina ski- 
vor är det tid för att kopiera och 
detta finns det en del komman- 
do för. Nästa gång skall jag gå 
igenom DIR, COPY, DISKCOPY 
och CHKDSEK. Lycka till! 
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Simulering med 


katter och 


Simuleringsprogram 
skall det handla om den 
här veckan. Simulering 
sätter de flesta i samband 
med att vara ”låtsas- 
sjuk”, men i datorsam- 
manhang är det en ana- 
lysmetod där man stude- 
rar en modell av den 
verkliga händelsen. 


Innan jag börjar med pro- 
grammet skall jag svara på en 
fråga från signaturen KAP i 
Lund. KAP har en Amstrad 
PCWB256 med mikroprocessor 
Z80A. Z80 är fadern till ABC-80, 
TRS-80, Sinclairs datorer med 
Spectrum 0 s v. Problemet, som 
KAP har är att få RND-funktio- 
nen att fungera. I ditt brev fanns 
en lista på det program som du 
försökte att köra. I rad 10 har du 
skrivit DIM AB(35). Det skall 
vara DIM A(35). I rad 20 skall du 
använda funktionen för att ren- 
sa skärmen. CHR$(147) gäller 
för en VIC-64, försök med CLS 
eller titta i din instruktionsbok. 
RND-funktionen kan skrivas på 
två sätt i basic. Antingen RND 
eller RND(0) kontrollera i din 
instruktionsbok hur din dator 
vill ha det. 


Dagens program 


I dagens program kommer jag 
att använda RND-funktionen. 
Denna funktion använder man 
ofta när man simulerar försök. 

Dagens problem är följande: 

Tänk er att det finns sju styc- 
ken burar på rad. De är sam- 
manbundna med en liten gång 
så att en mus kan gå från bur 
till bur. I bur nummer 1 och 7 
sitter en katt, som älskar att äta 
möss. Nu kommer problemet. 
Musen börjar i bur 3 och flyttar 
sig varje minut antingen ett steg 
åt höger eller ett steg åt vänster. 
Hur lång tid tar det innan mu- 
sen är uppäten? 

Stanna här ta fram papper och 
penna och försök räkna ut sva- 
ret. Hur går det? Har du fått 
fram ett svar? 


Simulering 


Troligtvis inte. Hur löser man 
nu ett sådant här problem om 
man inte kan matematiken bak- 
om problemet. Jo, man använ- 
der sig av simulering. Vi använ- 
der ett stort antal möss, ju fler 
desto säkrare resultat. Jag skri- 
ver programmet i GWbassic, 
som är den basic-dialekt, som 
finns på PC-datorer. 

Burarna får variabeln X, tiden 
variabel T, antalet variabeln N 
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och förflyttningen variabeln S. I 
början skall X ha värdet 3, där- 
för att det är startburen för mu- 
sen. Det enda problem som dy- 
ker upp är hur skall vi få datorn 
att flytta musen ett steg åt hö- 
ger eller vänster. 

Om musen börjar i bur 3 så 
skall vi antingen minska eller 
lägga till 1, så att musen ham- 
nar i bur 2 eller bur 4. Vi skall 
alltså se till att datorn tar fram 
antingen +1 eller —1. Vi kon- 
struerar en funktion med hjälp 
av RND. 

S=INT(RND +&2) ger antingen 
0 eller 1. Om vi nu lägger till &2, 
så här: 

S=INT(RND &2)&2, kommer 
vi att få antingen 2 eller 0, så nu 
har vi bara att minska med 1 så 
är vi framme vid målet. 

S=INT(RND&2)&2—1. 

I variabeln S får vi nu anting- 
en +1 eller —1. Nu är vi klara 
att skriva ner hela programmet. 
10 RANDOMIZE(TIMER) 
20CLS 
30X=3 
40 N=N+1 
50 T=T+1 
60 S=INT (RND«&2)&2—1 
T0X=X+S 
80 IF X=1 THEN 30 
90 IF X=7 THEN 30 
100 PRINT ”"ÖVERLEVNADS- 
TID"; T/N; ANTALET MÖSS”;N 
110 GOTO 50 

I rad 10 har jag en rad som ba- 
ra behövs i GWbasic, för att få 
ordentliga slumptalsserier. Rad 
20 tömmer skärmen och i rader- 
na 80 och 90 testar jag om mu- 
sen har kommit till bur 1 eller 7 
för att i så fall är den död och vi 
stoppar i en ny mus i bur num- 
mer 3. 


Åtta minuter 


Lycka till med musdödandet. 
Det matematiskt korrekta sva- 
ret är 8 minuter. En gång när 
jag körde 500.000 möss fick jag 
svaret 7,99 som är ett bra svar. 
Nästa gång tänkte jag vi skulle 
simulera väntetider hos en en- 
sam herrfrisör, som tar 20 mi- 
nuter för att klippa en kund. 
Hur lång blir längsta kön? Glöm 


MÖSS 


inte att han har inte kunder he- 
la tiden. Bra jogging för hjär- 
nan 


DOS-skola 


Nu över till DOS-skolan, som li- 
der mot sitt slut. Detta är näst 
sista gången för DOS-skolan, 
men jag kommer naturligtvis 
även i fortsättningen att besva- 
ra frågor och ta upp nya saker, 
som jag stöter på. 

Den här gången skall det 
handla om DOS-kommandon 
och jag skall göra en uppräk- 
ning av de flesta denna och näs- 
ta gång. Jag delar upp dem i tre 
grupper. Grupp ett är de kom- 
mandon, som fanns med från 
början. I grupp två kommer 
kommandona från DOS-2 och i 
tredje gruppen finns kommando 
från DOS-3. Har du till exempel 
DOS 3.00 eller högre så har du 
alla kommandon. 

COPY — kopierar filer på hård- 
disk och disketter 

DATE — visar och ställer datum 
i klockan 

DEL — raderar filer 

DIR — visar innehållet på ski- 
vorna 

ERASE — raderar filer 

PAUSE — används för att stop- 
pa och därefter visa meddelande 
REM — visar meddelande utan 
att påverka kommandofilen 
REN — döper om filer och änd- 
rar namn 

TIME — ställer klockan och vi- 
sar tiden 

TYPE — visar innehållet av en 
fil om den är skriven i ASCII- 
kod 

Med DOS-—2 tillkom följande 
kommando: 

ASSIGN ansluter viss skivenhet 

Om du har en applikation på 
din hårddisk C:, som fordar att 
du har en programdiskett i A: 
och en datadiskett i B: så kan du 
ge följande kommando innan du 
startar ditt program: 

ASSIGN A=C B=C 

Alla referenser till A: och B: 
kommer att gå till C:. 

BREAK styr hur DOS kontrol- 
lerar avbrott, CTRL och C 
CHDIR (CD) byter aktuell kata- 
log på skivan 

CLS tömmer skärmen (samma 
som i GWbasic) 

CTTY sätter DOS till fjärrstyr- 
ning genom att styra om termi- 
nalen, använd inte detta om du 
inte vet vad du gör 

ECHO kopplar av och på kom- 
mandoutskrift samt visar med- 
delanden 

FOR används i 
kommandofiler. 

Nästa gång fortsätter jag med 
fler kommandon. 


avancerade 
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Frisörens problem 
löses datorn 


Denna vecka har turen 
kommit till frisören och 
hans problem med sina 
kunder. Förutsättningar- 
na är följande: 

Salongen har öppet mel- 
lan klockan 09.00 och 
18.00 (frisören äter inte 
lunch han bantar). 

Under denna tid kommer 
det max 27 kunder, fler 
hinner han inte. Han kan 
bara klippa en i taget. 

En klippning tar 20 mi- 
nuter. 

Alla kunder, som kom- 
mer innan 18.00 blir 
klippta. 

Kunderna klipps i tur 
och ordning. 

Vi vill ha svar på följande frå- 
gor. 

Hur länge får kunden vänta i 
genomsnitt? 

Hur lång blir längsta vänteti- 
den? 

Hur lång blir längsta kön? 

Vi börjar med att dimensione- 
ra programmet för max 27 kun- 
der i rad 20. 

I raderna 50 till 70 tar datorn 
fram ankomsttiden för det antal 
kunder du har uppgett i rad 30. I 
variabeln A(1) till A(N) kommer 
det nu att ligga ankomsttiden 
för kunderna. Om det i varia- 
beln A(10) ligger talet 182 bety- 
der det att han kom 182 minuter 
efter klockan 09.00 vilket blir 
klockan 12.02 o s v. 

I nästa del av programmet 
från rad 80 till rad 170 sorterar 
vi ankomsttiderna i ordning så 
att den kund som kommer först 
ligger i A(1) nästa i A(2) 0 s v. 


Startid 


Starttiden för första kunden blir 
när första kunden har kommit 
alltså A(1), som blir starttid som 
läggs i S(1). För kund nummer 6 
blir starttiden A(6) plus startti- 
den för S(5) plus 20 minuter för 
klippningen alltså 
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S(6)=S(5)+20. Rent allmänt blir 
formeln S(1)=S(1—1)+20. 


Väntetid 


Denna loop för starttiderna hit- 
tar du i raderna 180 till 240. 

I raderna 250 till 300 tar da- 
torn och räknar ut den sam- 
manlagda väntetiden och lägger 
denna i variabeln T. Varje vän- 
tetid får man genom att minska 
kundens ankomsttid A(1) med 
starttiden S(1) denna läggs i va- 
riabeln V(1), som sedan summe- 
ras i variabeln T. I rad 300 delas 
den totala väntetiden T med an- 
talet kunder N och resultatet 
skrivs ut. 

I rad 320 till rad 360 tar vi fram 
den längsta väntetiden M. I rad 
320 antar vi att i starten är den 
längsta väntetiden V(1). I loopen 
jämför man sedan alla värden 
med varandra för att få fram 
den längsta väntetiden M. 

Rad 370 skriver datorn ut vän- 
tetiden. 


Hur många i kön? 

Nu återstår bara att räkna ut 
hur många kunder det var i den 
längsta kön. Detta gör man ge- 
nom att ta värdet i M och dela 
med 20, som är klippningstiden 
och lägga till 1, så får man anta- 
let kunder i den längsta kön. 
Skrivningen hittar du i rad 390. 

Har du själv någon simulering 
skriv och berätta. 

Nu skall jag fortsätta med 
DOS-skolan. Jag ser att det blir 
inte sista gången, som jag hota- 
de med tidigare. Basicdelen tog 
lite mer plats än jag räknade 
med. 


10 CLS: RANDOMIZE (TIMER) 


DOS-2 


Jag fortsätter där jag slutade 
förra gången och har då kommit 
till följande kommando under 
DOS-2. 

GOTO används i avancerade 
kommandofiler för hopp 
IF används för att kontrollera 
logiska villkor (jämför basic) 
MKDIR (MD) skapar ny under- 
katalog på skivan. 
PATH talar om för DOS var den 
kan hitta program. Om jag vill 
att datorn skall leta i olika un- 
derbibliotek efter program eller 
data så kan jag använda mig av 
PATH. Vi kan till exempel säga 
att i underbiblioteken KALKYL, 
KALKYLN EL och ORD vill jag 
att datorn automatiskt ska leta 
efter filer så skriver jag så här: 
PATHNKALKYL;NKALKYL/ 
EL; NORD 
PRINT gör utskrift till skrivare 
PWD visar aktuellt katalog- 
namn (finns inte i alla DOS) 
RECOVER återställer fil eller 
bibliotek. Om du har en diskett 
som innehåller dåliga sektorer 
kan du skriva RECOVER A: om 
det är ett program, som till ex- 
empel heter SKRIV.ORD och 
har några dåliga sektorer så 
skriver du RECOVER SKRI- 
V.ORD och trycker på RETURN. 


Hör ihop 

RESTORE OCH BACKUP är 
två kommandon som hör ihop. 
BACKUP använder man för att 
ta säkerhetskopia på sitt system 
eller dela av det. RESTORE är 
att lägga tillbaka de säkerhets- 
kopierade filerna, som är kopie- 
rade med BACKUP. 

Vi skall säkerhetskopiera alla 
filer i underbiblioteket som he- 
ter KALKYLN EL. Detta gör jag 
genom att skriva: 

BACKUP C:XKALKYLNEL A: 
Se till att ha en TOM formate- 
rad diskett i A: För att sedan lä- 
sa tillbaka med RESTORE skri- 
ver man så här: 

RESTORE A: C:NKALKY- 
LNEL 

Nästa gång avslutar jag DOS- 
skolan. 


20 DIM Al27)AS(27) VV (27) 

Sö INFUT "ANTAL KUNDER FER DAG (MAX 27 ST)": N 
40 FRINT: PRINT 

0 FOR I=1 TO N 

60 ACD =EINTIS41xXRND2 

70 NEXT I 

30 FOR J=i TO N-i 

20 M=J 

100 FOR EK=J+1 TO N 

110 IF AlkD ö=A OM) THEN 1360 

120 M=k 

130 NEXT FK 

140 X=A (J) 

150 AL =A (MI 

160 AA (Mi =X 

170 NEXT J 

180 Sill =A(1DL 

190 FOR I=2 TOO N 

200 IF S(I1-15)+20:=A1(1> THEN 230 
S10 SIDA) 

220 BOTO 240 

230 SI =SII1-1)+20 

240 NEXT I 

250 T=0 

260 FOR I1=1 TO N 

270 VID=S(D-ALD 

280 T=T+YV (1) 

290 NEXT I 

300 FRINT "DEN GENOMSNITTLIGA VÄNTETIDEN": INT i(IT/N+. 5) 
1310 FRINT: FRINT 

320 M=EVi1)0 

330 FOR I1=2 TO N 

340 IF Vil) <=M THEN Z60 

350 M=ViI) 

TA0 NEXT I 

70 FRINT "LÄNGSTA VÄNTETIDEN":M 
380 FRINT: FRINT 

320 FRINT "DEN LÄNGSTA KÖN BLEV" SS INTIM/ 20) +1: "FERSONER" 
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Så här gör du en 






nånadskalender 





sätter programmet. Nästa vecka skall jag skriva ett 
Rad 230 är fel titta efter i boken = tipsprogram, som tar ut tipsra- 
vad där skall stå. der och där du kan bestämma 

Christian Rad 310 tar du bort. sannolikheter själv. 
Lindeber Rad 340 skriver du RND(X) i Den här veckan har jag gjort 
I | stället för RND. ett program, som ger dig en må- 
| é Programmet verkar onödigt <andskalender för valfri månad 

Na A komplicerat. från och med 1582. 

HEMDATORER mån a No 


MÅN TIS ONS TOR FRE LÖR SÖN 


1: 2: 3: 


Jag fick ett brev från Ro- 

land N i Viken. Han har : : : : | | 10 
köpt en Apple II Euro- 4: 9: 6: 1: 8: 9: | 
plus. Datorn är av äldre : : : : : : | 
datum men fortfarande 11: 12: 13: 14: 15: 16: 17: 
en bra dator att lära sig : : : : : : : 
på. Om jag kommer ihåg 18: 19: 20: 21: 22: 23: 24: 
riktigt så använder det ett : : : : : : : 
operativsystem som heter 25: 26: 217: 28: 29: 30: 31: 


CP/M 2.0 eller liknande. 


Det finns mycket program till 
detta operativsystem. Om någon 
annan läsare har samma typ av 
dator. så förmedlar jag Rolands 
adress. Roland har ett problem 
med sina basicprogram. Han 
skickade med en del listningar. 

Första anledningen till att di- 
na program inte fungerar är rad 
40. Ta bort den för den gör att 


Ovanstående får du om du skriver in 1989 på frågan om år och talet 
9 som svar på vilken månad. 


Skottår 


Den svårast biten i programmet är bara kontrollen av skottår an- 
nars är det en ganska enkel matematik. 

Om du har en dator med en skärm som är 40 tecken bred så får du 
ändra i raderna 400 och 470. I båda raderna står "6 ändra detta till "5. 
Rad 520 ändrar du till bara PRINT. 


datorn stannar där och inte fort- Lycka till med kalendern! 
10 CLS: PRINT : PFRINT 
20 FRINT "UTSERIFT AV EALENDER" 


30 PRINT PRINT "VALFRI MANAD OCH AR" 
40 FOR I=1 TO SÖOOO:NEXT I 


30 DIM M$(12) 


Å60 Sf="—-mm nere 


70 TF="3 ; 
80 FOR I1=1 TO 7 
90 READ D$(D 


100 NEXT I 


er oe RE ER KKR KE KA Vt KV ER EEE RER KR VRENA REN KR RE ARE RR KR Sea vers Atrr äntn ärar onnnn I Å 


110 DATA MAÄNDAG, TISDAG, ONSDAG, TORSDAG, FREDAG, LÖRDAG, SÖNDAG 


120 FOR I=1 TO 12 
130 READ M$(I) 
140 NEXT I 


150 DATA JANUARI, FEERUARI MARS, AFRIL, MAJ, JUNI 
160 DATA JULI, AUGUSTI, SEFTEMBER, OKTOBER, NOVEMBER, DECEMBER 


170 CLS: PRINT : PRINT 


180 INPUT"ANGE AR, MEN INTE FöRE 1582"; AR 
190 IF AR<1582 THEN 170 
200 INPUT"ANGE MANADENS NUMMER": N 


210 MAN$=M$(N) 
220 ST=AR 
230 IF N<>2 THEN 280 


240 IF AR/42 INT IAR/4) 


200 ML=29 


THEN ML=28:G60T0 200 


260 IF AR/100=INT(IAR/ 100) AND AR/400<3INT(AR/400) THEN ML=28 


270 GOTO 300 


280 IF (N=4 OR N=6 OR N=9 OR N=11> THEN ML=30:60T0 300 


290 ML=31 
300 D=0O 


310 IF NSZ3 THEN N=EN+12:AR=AR-1 
320 P=ED+ZXN+INT (. OX (N+1)) +AR+INT (AR/4) - INT (AR/ 100) +INT (AR/ 400) + 
330 F=INT(U(PR/7-INT (PF/7) ) X7+,.5) 


340 IF F=0 THEN F=7 
350 DAG=1-F 


360 CLS 
370 PRINT : PRINT " ot: MANS: TAR (39): ST 
380 PRINT " ":S$ 


3590 FOR KOL=1 TO 7 


400 FRINT TAR C3I+(KOL-1) x6) ; LEFT$ (D$ (KOL) , 3) - 


410 NEXT KOL 

420 PRINT 

430 PRINT TAB (2): S$ 
440 FOR RAD=1 TO & 
450 PRINT " ">: TE 


460 FOR KOL=1 TO 7:DAG=DAG+1 

470 PRINT TAR(2+i(KOL-1) xk6) : "eg 
480 IF DAG>ML OR DAG<=0 THEN 510 
490 IF DAGZ10 THEN PRINT " "> DAG: 
3200 IF DAG:9 THEN PRINT " "3: DAG: 


S10 NEXT KOL 


20 FRINT TAB(44) sve" 


30 PRINT " ":S$ 
240 NEXT RAD 


S00 PRINT " EN NY MANAD TILL (J/N) "sz 


360 INPUT SVARS 


2/0 IF SVAR$="J" OR SVAR$="j" THEN 170 


380 END 
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Tipsprogram och 
säkerhetskopiering 


Förra veckan lovade jag 
Roland N i Viken ett tips- 
program. Jag har gjort ett 
program där du kan låta 
datorn slumpmässigt ta 
ut ett antal rader. Du kan 
också själv lägga in san- 
nolikheter för de tretton 
matcherna. 

Programmet är skrivet i 
GWhbasic, så du behöver ingen 
översättning när du ska skriva 
in det på en PC-dator. Har du en 
VIC eller liknande så får du gö- 
ra en del förändringar. Här 
kommer förändringarna. 

Rad 20 tar du bort och rad 30 
blir: 300 PRINT CHR$(147). 

På samma sätt ändrar du ra- 


derna 110, 260 och 360. 

Rad 160 ändrar du = till: 
160S=RND(0). 

I rad 410 blir en liknande för- 
ändring, 410 P=INT 
(RND(0)&100)+.5. 


I menyn ser du att du har tre 
alternativ: 
"1. SLUMPADE MATCHER” 
”2. EGNA SANNOLIKHETER” 
”3. AVSLUTA” 


Uppehåll 

De slumpade matcherna har en 
rutin som ligger i raderna 110 
till 250. Du får först svara på 
frågan om hur många matcher 
du vill ha. Därefter tar datorn ut 
antalet matcher och gör ett up- 
pehåll vid var 15:e match. Ruti- 
nen för detta hittar du i rad 220. 
Glöm inte att skriva av match- 
erna. 

De egna sannolikheterna star- 
tar i rad 260 och till rad 500. Ru- 
tinen för egna sannolikheter 
in DIM Rö 1l3, nn 
20 RANDOMIZE TIMER) 

30 CLS 


40 PRINT 2 PRINT 


Sö PRINT PRINT TAB I1O0)s "1. 
n TAR (ILO) 3 "2, 


AöÖ FRINT PRINT 


SPRINT TABU 3 "HUR MÄNGA 
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blir lite mer komplicerad än ba- 
ra slumpade. 


I raderna 290 till 310 lägger du 
in sannolikheterna i variablerna 
R(1,1), R(1,2) och R(1,3). Kom 
ihåg att skriva in talen som pro- 
centtal. I rad 320 kontrollerar 
datorn att summan blir 10090. 

För att kunna jämföra med di- 
na inslagna procenttal, får jag 
göra konstruktionen i rad 340, 
så att jag får ett värde för jäm- 
förelserna i raderna 420 till 440. 
Du ser att slutet på andra ruti- 
nen är lik rutinen för de slum- 
pade tecknen. 

Med egna sannolikheter kan 

du påverka varje match indi- 
viduellt. Programmet tillåter dig 
också att sätta en sannolikhet 
till noll. Om du till exempel tror 
att en match blir en 1:a med 
9099 sannolikhet och ett X med 
10960 sannolikhet så kan du slå 
in detta med en nolla för sanno- 
likheten för en tvåa. 
I kommande artiklar kommer 
jag att skriva ett par program 
med filhantering. Det betyder 
att programmet lagrar informa- 
tion på diskett, hårddisk eller 
band. 

Jag fick en fråga häromdagen 
om säkerhetskopiering till PC- 
datorer, huruvida man ska an- 
vända COPY eller BACKUP. Jag 


TARO 2 MENY" 


SLUMPAD MATCHER" 
ONA 
Fre UTA” 


70 PRINT PRINT TAROLO) a "3, 
20 PRINT PRINT TARO: 

0 IF 0<1 OR 033 THEN 30 
100 ON Q GOTO 110, 260,510 
110 CLS 

120 PRINT 

130 PRINT PRINT 


140 FÖR I1=1 
i5ö FOR 


TON 
J=1 TO 13 


"VARD ORMSKAS" sf INPUT CO 


föredrar själv att använda CO- 
PY, men COPY har det proble- 
met att den inte talar om när 
disketten är full. BACKUP kon- 
trollerar om disketten blir full 
och säger till att du ska byta. 


Jag har själv ett flertal gånger 
haft problem med BACKUP; 
därför har jag skaffat mig 
PCTOOLS som kontrollerar hur 
mycket disketten kan ta. Så nu- 
mera använder jag COPY-funk- 
tionen i PCTOOLS och har bät- 
tre kontroll på mina säkerhets- 
kopior. 

Det har kommit två nya ver- 
sioner av PCTOOLS. Akta er för 
den versionen som heter 5,0. 
Den har problem med COM- 
PRESS-programmet. Jag för- 
störde alla filerna på min hård- 
disk. Köp istället version 5.5, 
som fungerar utan problem. 
Den nya versionen har ett me- 
nyskal, som är lätt att använda. 
Jag avslutar med en förklaring 
på ett mycket vanligt fel på PC- 
program. Det händer då och då 
att man kommer till mig och sä- 
ger: ”Du, nu har jag kört det här 
programmet så många gånger 
och plötsligt så vill det inte läng- 
re. Vad har hänt?” 

Min första fråga är: Har du 
skaffat ett nytt menyprogram? 
Om ja, så har vi troligtvis svarar 
på varför det gamla program- 
met inte fungerar. 

Det finns i dag många pro- 
gram som lägger sig i minnet 
och då kommer i konflikt med 
andra program som också vill 
använda denna minnesarea. Det 
går i de flesta fall inte att ta bort 
dessa program; man får starta 
datorn igen för att programmet 
ska fungera. 


RADER” så INFRUT ON 


160 S=RND 

170 IF 52.6 THEN PRINT "1 oo": 

180 IF S=,6 AND S<.& THEN PRINT "2 "3 
190 IF S=,.8 THEN PRINT "Xx "z 

200 NEXT I 


PRINT 
220 IF I1/ 


15 INT IT 10 
NEXT I 


THEN INFUT 008 


230 

240 PRINT PRINT TAR OO) 3G UTRYCK PÅ RETURNS: INPUT O0$ 

250 GOTO 30 

260 CLS 

270 PRINT PRINT TAB OO) 3 "SLA IN DINA SANNOLIEHETER I PROCENT" 
280 FOR I=1 TO 13 

290 PRINT TAB ULO) a: "MATCH NR"3 13 "SANNOLIKHET FÖR 1":si INFUT ROD, 120 
300 PRINT TAB ULOD) ; "MATCH NRYG 13 "SANNOLIKHET FÖR 25: INPUT RI1I,.2) 
310 PRINT TABO1O0) 3 "MATCH NRUG Ia "SANNOLIKHET FÖR X:s INPUT ROD. 32 
320 T=ROI, DAROL. 2 4RO1, 3) 

330 IF T<3>100 THEN PRINT "MASTE BLI 100":GOTO 290 


ROD, 2=ROL,. 1DD4RU1, 2) 
350 NEXT I 


360 CIS 

370 PRINT PRINT TARO 1013 "HUR MANGA KAÄADER” GS] INFUT N 
3580 PRINT PRINT 

TSÖö FÖR I=1 TO N 


400 FOR dei TO 13 

410 P=ESINTÖRNOSKTO0)0 +, 5 

420 IF P<ROI. 1 THEN PRINT "1 3; 

430 IF Pr=skij, 1) AMD FRI, 2) THEN PRINT te 
40 IF oRösRid.2 THEN PFRETNT OCR "G 

Få Li 


HEXT J 
460 FREINT 


470 IF Ol 1feSINT II 180 THERN INET CC 

40 NET I 

4590 PRINT SPRINT TARO ga UTRYCE PÅ RETURNS sc INEUT OO 
En TIL AG 


END 
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Så kan du kolla 
ersonnummer 


Register har jag skrivit 
om de senaste två veckor- 
na. Naturligtvis blev då 
en fråga från Sven A i 
Malmö: ”Register brukar 
man sätta i samband med 
personnummer. Kontrol- 
lerar datorn alltid per- 
sonnumret och hur?” 


Svaret är ja, om du tänker på 
officiella register. I egna och 
privata register sker detta inte 
alltid. När det gäller register 
med personer får man inte 
glömma att man måste ha till- 
stånd från Datainspektionen för 
att för att föra ett register. År 
man osäker skall man ta kon- 
takt med Datainspektionen, Box 
12050, 102 22 Stockholm eller per 
telefon 08/22 79 80. 


Tio siffror 


Sven frågade om personnum- 
mer. Ett personnummer består 
av tio siffror där de sex första är 
födelsetid. De nästa tre var i 
Sverige du är född. Den nionde 
om det är en pojke eller flicka. 
Flickor har jämna siffror och 
pojkar har udda. Tionde siffran 
är en kontrollsiffra på att det 
hela stämmer. Kontrollsiffran 
räknas ut med hjälpa av de and- 





10 9 03.6 04 7 16 ———, 
Nu summerar vi siffrorna: === DN 
1+0+9+0+3+6+0+4+7+1- Å 
+6=37. Nu tar vi bort tiotalsiff- 
10 CLS 
20 FRINT "SLA IN FERSONNUMRET!" 
30 FRINT "ALLA SIFFROR OCH EBINDESTRECE"": 
40 INPUT P$ 
Sö FRINT PRINT 
50 AF=MICE IFS, 1. Ö +MIDS IFS, BB, 3) 
70 FRINT U"UFERSONNUMMER "3: 
80 FOR I=1 TO 9 
20 FRINT " US MIDSIAS$. I. 10) :" "sy 
100 NEXT I 
110 FRINT: FRINT 
120 FRINT UMULTIFLICERA MED "3 
130 FOR I=1 TO 9 
140 IF I/2=INTi(1/2) THEN FRINT 1: "3: 2 GOTO 160 
120 FRINT 2: "3; 
160 NEXT I 
170 FRINT: PRINT 
180 FRINT "SVARET BLIR "3 
180 FOR I=1 TO 9 
200 IF 1I/Z=INT 11/2) THEN GOSUR 450:60T0 220 
210 GOSUE 470 
220 PRINT Nit os 
230 T=T+AN 
z40 NEXT I 
200 PRINT: PRINT: FRINT "SUMMAN BLIR": 
260 PRINT T 
270 E$=STR$(T) 
280 C$=MIDFE (BF, 3.1 
290 R=VAL (C$) 
300 E=10-R 
3510 IF E=10 THEN K=0 
320 PRINT PRINT "KONTROLLSIFFRAN BLIR 10 -"sR3 "=": 
350 PRINT PRINT "EONTROLCLSIFFRAN I FERSONNUMRET ÄR "3 MID$IPF$, 11. DD 
340 XF=ESTRR (IK) 
300 F=0 
360 IF VAL (MID$IF$,. 11. DI=K THEN F=1 
370 PRINT I FPFRINT 
380 FRINT "FERSONNOMRET VÄR "3: P$ 
390 IF F=1 THEN FRINT: FRINT "OCH KONTROLLSIFFRAN AR RIKTIG": GOTO 440 
400 IF F=0 THEN FRINT PRINT "KONTROLLSIFFRAN ÄR FEL" 
410 FRINT 2: FRINT "PERSONNUMRET BORDE VARA FölLJANDE Ne 
420 FRINT MID$(IF$, 1, 10) +MID$ I(X$, 2, 1) 
440 END 
456 N=VAL (MIDS (AS, I. 10) 
460 RETURN 
470 IF 2KXVAL (MID IAS, I, 12239 THEN N=2KVAL IMIDS (AÄAS$, I. 1))-92: GOTO 490 
480 N=2KVAL I(MIDS$ (AS, I. 12) 


490 RETURN 
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ra nio. Uträkningen är ganska 
enkel och jag skall göra ett ex- 
empel och ett program. Jag an- 
vänder mig av ett så kallat test- 
nummer, som man kan få från 
Datainspektionen. 


Personnumret är 
590330—2783. Vi kan omedelbart 
se att personnumret tillhör en 
kvinna eftersom att nionde siff- 
ran är en jämn siffra. Den sista 
siffran är en trea och är kon- 
trollsiffran. Nu skall vi kontrol- 
lera att detta stämmer. Uträk- 
ningen går till på följande sätt: 

Man multiplicerar de nio siff- 
rorna i personnumret varannan 
gång med två och varannan 
gång med ett. Därefter summe- 
rar man siffrornas värde, alltså 
inte talens värde. Nu tar man 
bort tiotalssiffran och drar den- 
na ifrån talet tio och nu har vi 
fått fram kontrollsiffran. 


Ett exempel 
Det låter krångligt eller hur? 
Jag skall visa med ett exempel. 
590330278 
& 212121212 


ran som är 3 och nu får vi siff- 
ran 7 kvar. Denna siffra drar vi 
ifrån talet 10 och resultatet blir 
3, vilket skall vara kontrollsiff- 
ran och detta ser vi att det 
stämmer med personnummer 
590330—2783. Jag har gjort ett 
program där du också kan se ut- 
räkningarna. En sak måste jag 
påpeka att om sista siffran i ut- 
räkning blir en nolla så är också 
kontrollsiffran en nolla. 


Bindestreck 


En programteknisk del är na- 
turligtvis hur man summerar 
siffrorna i talen 10 till 18. Det är 
ganska enkelt eftersom man tar 
entalsdelen och lägger till siff- 
ran 1. Tekniken man använder 
är att lägga siffrorna i strängar 
och sedan använda funktioner- 
na VAL () och STR $&(). Detta i 
kombination med de vanliga 
stränghanteringskommandona 
gör det ganska lätthanterligt. 
Kom ihåg att du slår in person- 
numren med ett bindestreck. 
Kontrollera gärna programmet 
med både riktiga och felaktiga 
personnummer. Lycka till! 


mä 
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Datorn kan bli 
en bra kassabok 


Den här veckan skall jag 
visa ett program för en 
kassabok. Jag tror inte att 
man får bättre med peng- 
ar, men man får kontroll 
över var pengarna tar vä- 
gen även om detta kan 
vara deprimerande. 
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Nu över till kassaboken, som 
också lagrar alla transaktioner. 
I raderna 30 till 90 kan du se 
menyn, som hanterar inskriv- 
ning av intäkter och utgifter. 
Där finns också rutinerna för 
att spara och hämta uppgifter 
på intäkter och utgifter. För att 
kunna skilja på utgifter och in- 
komster har jag lagt till en 
stjärna på slutet av alla utgifter. 


Innan jag kommer till pro-  MINNENENRNNNNNIINNIINIINE Detta kan du se i rad 280. Denna 
grammet vill jag svara på en använder jag sedan när jag lä- 
fråga om hårddiskar till PC-da- En varning for in PENGANGa min fil, om 
torer. Frågan gällde hur man eter NGAR.SEQ. Där kän 


städar på en hårddisk. När man 
har använt sin hårddisk ett par 
månader, så har man både lagt 
till och tagit bort program. 

Har man tagit bort många små 
program så blir det en massa 
tomma platser på hårddisken. 
När man sedan lägger dit ett 
större program så kommer det- 
ta inte att hamna i en följd utan 
lägger sig på de tomma platser- 
na. Detta medför att hårddisken 
arbetar långsamt och att det sli- 
ter mera på disken än om pro- 
grammet ligger i en följd. En 
bra regel är att man regelmäs- 
sigt kör programmet 
CHKDSK.COM. När du kör det 
skall du skriva på följande sätt: 
CHKDSK/F 


Detta kommando tar bort så 
kallade ”lost clusters” på hård- 
disken. En bra investering är att 
köpa PCTOOLS ver 5.5 för att 
hålla rent och snyggt på sin 
hårddisk. I PCTOOLS 5.5 ingår 
ett program, som heter COM- 
PRESS. Detta program städar 
upp och lägger dina filer i en 
sammanhängande kedja. 


VARNING! Akta dig för 


PCTOOLS ver 5.0 för den inne- 
håller ett par fel så att du kan 
förlora alla programmen på din 
hårddisk. Det hände mig med 
PCTOOLS 5.0. 


Jag kör regelbundet med 
PCTOOLS 5.5 och den fungerar 
utan problem. 


ner programmet av om det finns 
en stjärna i slutet av ordet för 
då vet programmet att det är en 
utgift. Ändelsen SEQ lägger jag 
till för att jag skall se att det är 
en sekventiell fil och inte ett 
program. Ni som har VIC-64 och 
liknande får ändra i raderna 
480, 560, 540 och 630 till följande. 
480 OPEN 2,8,2, ”PENGAR,S,W” 
560 OPEN 2,8,2 ”PENGAR,S,R” 
540 CLOSE 2 

630 CLOSE 2 


En sak som du kan fundera på 
är hur får man bort stjärnan så 
att den inte syns i översikten 
med transaktioner, men den 
skall fortfarande finnas kvar 
när jag lagrar mina utgifter. 
Tänk på det till nästa vecka. 


10 DIM INIi1000) FKOC1000) . INEC(1000) KO 1000) 

20 CLS 

30 FRINT PRINT TARI10D : "KASSABOFK" 

40 FRINT PRINT TABL105:"1. INTAETER! 

0 FRINT PRINT TAR(10):"Z2. UTGIFTER" 

60 FRINT :FRINT TAR(10):"35. VISA TRANSAKTIONER" 

70 FRINT PRINT TAR(10):"4. HÄMTA REGISTER" 

80 PRINT :FRINT TARi10):"5. AVSLUTA OCH SFARA REGISTER" 
0 FRINT :FPFRINT TAR (10): "VAD ÖNSKAS": 

106 INFUT OQO 

1i0 IF 051 OR 035 THEN 20 

120 ON GC GOTO 130, 240,350,5S60,480 

130 CLS 

140 N=EN+1 

150 FRINT :FRINT TAR (1053: "INTÄKTER" 

160 FRINT PRINT TAR GO) 3 "SERIV TYF AV INTAFET": 

170 INFUT INS$OND 

180 FRINT :FRINT TARC10):; "HUR STOR ÄR SUMMAN": 

190 INFUT IN ON) 

200 PRINT ?:FRINT TAR O1O0) 3: "SKALL DU SLA IN FLER": 

210 INFUT Q0$ 

220 IF CO0O$=";" OR DO$="I" THEN 1530 

2530 GOTO 20 

240 CLS 

200 N=EN+1 

260 FRINT :FPFRINT TABi(10): "UTGIFTER" 

270 FRINT :FRINT TAE CIO) 3: "SERIV TYF AV UTGIFT": 

280 INFUT FKO$O(N) : KOFI(N) =KOF(N) +" Xx" 

290 FRINT :PFRINT TAR (10): "HUR STOR ÄR SUMMAN": 

300 INFUT EO ON) 

S10 FRINT :FPRINT TAR OO) 2 "SKALL DU SLA IN FLER": 

320 INFUT 006 

330 IF 00$=";" OR DO$="1" THEN 240 

340 GOTO 20 

350 CLS 

36606 FRINT : PRINT TAR(100 : "VISA TRANSAKTIONER OCH SALDO” 
370 PRINT : FRINT 

380 FRINT "UTRAÄNSAFTION"S TAB (20); "SUMMA": TAR (30) : "SALDO" 
390 FOR I=i1 TO N 

400 IF IN(1>:0 THEN FRINT IN$(D) :TAR(2O) ; INIiD) 3 TAR (350): 
410 IF KOCD):0Ö THEN FRINT KO$(D IS TAR (20) ;: KO CD) 3; TAR (30): 
420 SUM=SUM+IN (ID) : MIN=MIN+FEO (ID) 

430 IF KOC(DD RFÖ OR IN(1D> 530 THEN FRINT SUM-MIN 

440 IF I1/1S=INT (1/15) THEN FRINT : PRINT TAB i10):: INFUT 004 
460 NEXT I 

4606 FRINT :FPFRINT TARU1O) 3: "TRYCE FÅ RETURNS: INFUT DO$ 
470 GOTO 20 

480 OFEN"OVC Hl. "FENGAR. SEQ" 

490 PRINTHI1I,.N 

SÖ0 FOR I1=1 TO N 

S1ö0 IF IN(D) 0 THEN FRINTSAS1I, IN$ID) :PRINTH1, IN (ID) 

S:0 IF EOCID5:0 THEN PRINTHA1. KO$(D> :PRINTR1. KOCID) 

uA0 NEXT I 

240 CLOSE 1 

sv0 END 

60 OFEN"I" 41. "PENGAR. SEO" 

7/0 INFUTHI1I.N 

80 FOR I1=1 TO N 

90 INFUTHI1I,. TE. T 

600 IF RIGHT$iT$, 1D="x" THEN FÖO$iD=T$: KOLIDD =T:G6G0T0 6720 
Slö IN$(ID)=TF$: IN(D) =T 

520 NEXT I 

GO CLOSE i 

40 GOTO 20 





I dag fortsätter vi med 
matematikprogrammen. 
Hoppas att du har tränat 
på förra veckans pro- 
gram. Då skulle ni nå 
fram till ett tal utan att få 
addera eller minska er 
dit. 


Den här gången är det ett pro- 
gram, som blir lite svårare. Du 
får slutmålet och det värde du 
skall starta med. Nu får du an- 
vända vilket räknesätt du vill 
men bara med talet 2. Datorn 
räknar antalet gånger du försö- 
ker. Du bör klara vilket tal som 
helst under 10 gånger. Jag skall 
ta ett exempel: 

Du får ett slutmål på 96 och 
din start är 32. Nu kan du multi- 
plicera med 2, addera med 2, 
minska med 2 eller dividera 
med två. Slutresultatet skall va- 
ra 96. 

Jag börjar och dividerar med 
2, resultatet blir 15. 

Nu minskar jag med 2 och får 
14. Efter ytterligare en minsk- 
ning så hamnar jag på 12. 

Nu multiplicerar jag en gång 
och får 24. En ny multiplikation 
ger 48 och en sista multiplika- 
tion ger svaret 96. Jag klarade 
det på 6 gånger, vilket är god- 
känt. 


Mellan 1 och 100 


Programmet ger ett tal mellan 1 
och 100. Du kan öka svårighets- 
graden genom att öka till 1.000 
eller högre. 

Här kommer programmet: 
10 CLS 
20 RANDOMIZE (TIMER) 
30 N=INT(RND"100) 
40 PRINT:PRINT 
TAB(10);' TANKEVERKSAM- 
HET” 
50 PRINT:PRINT 
TAB(10);'DITT SLUTMÅL ÄR 
TALET";N 
60 V=INT(RND'"N/2) 
1710 PRINT:PRINT TAB(10);”DU 
SKALL BÖRJA MED VÄR- 
DET'";V 
80 PRINT:PRINT TAB(10);VIL- 
KET RAKNESATT VILL DU 
HA” 
90 T=T+1 
100 PRINT:PRINT TAB(10);"1. 
ADDITION MED 2?” 
110 PRINT:PRINT TAB(10);"2. 
SUBTRAKTION MED 2” 
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Här är ett svårare 
matematikprogram 
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120 PRINT:PRINT TAB(10);'3. 
MULTIPLIKATION MED 2” 

130 PRINT:PRINT TAB(10);'4. 
DIVISION MED 2” 

140 — PRINT:PRINT 
TAB(10);' VAD ÖNSKAR DU”; 
150 INPUT Q 


160IFQ<1ORQ>5 THEN 80 
170 ON Q GOSUB 
190,240,290,340 

180 GOTO 90 

190 V=V+2 

200 IF V=N THEN 390 

210 CLS:PRINT:PRINT 


TAB(10);'DITT SLUTMÅL ÄR 
TALET”;N 

220 PRINT:PRINT 
TAB(10);'DITT VÄRDE ÄR 
NU”;V 

230 RETURN 

240 V=V-—2 

250 IF V=N THEN 390 

260 CLS:PRINT:PRINT 
TAB(10);'DITT SLUTMÅL ÄR 
TALET”;N 

270 PRINT:PRINT 
TAB(10);'DITT VÄRDE ÄR 
NU”: 


280 RETURN 

290 V=V"2 

300 IF V=N THEN 390 

310 CLS:PRINT:PRINT 
TAB(10);'DITT SLUTMÅL ÄR 
TALET”;N 

320 PRINT:PRINT 
TAB(10);'DITT VÄRDE ÄR 
NU”:V 

330 RETURN 

340 V=INT(V/2+.5) 

350 IF V=N THEN 390 

360 CLS:PRINT:PRINT 
TAB(10);'DITT SLUTMÅL ÄR 
TALET”;N 

370 PRINT:PRINT 
TAB(10);'DITT VÄRDE ÄR 
NU”;V 


380 RETURN 
390 PRINT:PRINT 

400 PRINT:PRINT 
TAB(10);'GRATULERA DU 
KLARADE DET PÅ” 

410 PRINT:PRINT 


TAB(10);T;” GÅNGER” 


Programmet bygger på fyra 
stycken subrutiner. Du väljer i 
rad 140 och 150. I rad 170 hoppar 
datorn till den subrutin du valt. 
Om du har valt en etta så ham- 
nar du i rad 190 och har du valt 
en tvåa så hamnar du i rad 240. 

Subrutinen utför nu den mate- 
matiska beräkning, som du har 
bestämt med ditt val. Efter be- 
räkningen testar programmet 
om du har uppnått målet eller 
om du skall fortsätta med fler 
beräkningar. 

Den basic jag använder är 
GW-Basic och använder du en 
annan basic så titta i instruk- 
tionsboken vad du skall använ- 
da i stället för mina uttryck. 

Jag skall visa på en del funk- 
tioner, som kan skilja. 

CLS = rensa skärmen 
RANDOMIZE(TIMER) = star- 
tar en speciell slumpvalsgenera- 
tor. 

RND = slumpvalsgeneratorn 
som ger ett tal till din variabel. 

Dessa är de funktioner, som 
kan skilja med andra basicdia- 
lekter. 


Kopieringar 

Nu till en brevfråga: Thure L i 
Lund, som har en fråga om MS- 
DOS, alltså operativsystemet till 
PC-datorer. Frågan gäller kom- 
mandot XCOPY och vad som 
skiljer detta från COPY. 

Om du använder COPY så ko- 
pierar du ett program från en 
disk till en annan diskenhet. 

Med XCOPY har du ett kom- 
mando, som liknar BACKUP- 
kommandot om man tittar på de 
parametrar, som man kan an- 
vända. 

Den mest använda parame- 
tern är /s. Den gör att du kopie- 
rar även det som finns i under- 
biblioteken. Jag skall ta ett ex- 
empel. 

Du har ett bibliotek med nam- 
net KALKYL, som har två un- 
derbibliotek, SKATT och 
PENGAR. Nu skall du kopiera 
allt under biblioteket KALKYL 
med underbiblioteken SKATT 
och PENGAR. Med XCOPY kan 
du skriva på följande sätt om du 
vill kopiera från C: till A:. 

XCOPY C: KALKYL A:/s 

Nu kopieras även underbiblio- 
teken in på A: 

Lycka till! 
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Gör egna julkort 
med din hemdator 


Nu börjar vi närma oss 
julen. Det är i dag exakt 
en månad till julafton. Så 
därför har jag gjort ett li- 
tet program, som kan rita 
ut julkort och skriva ut 
etiketter. 


Ett fel blev det i förra veckans 
program i rad 10 hade jag tap- 
pat bort en dimensionering. Rad 
10 skall se ut så här: 

10 DIM N(27,7), R(27), T(27) 

Om man inte har med den sis- 
ta delen med T(27), så blir det fel 
i rad 290. 


Nu skall programmet fungera. 


Tack Conny O. Lund för att du 
snabbt uppmärksammade mig 
på problemet. 


Ett varmt tack till signaturen 
Y.L. för ditt trevliga brev. 


I den här spalten finns inga 
onödiga frågor utan bara frågor. 
Jag vet att många sitter hemma 
och har en hel del frågor, men 
tycker att kanske frågorna är 
för enkla. Svaret är alltid enkelt 
när man kan. Men en fråga, som 
jag inte vet svaret på är alltid en 
svår fråga. Programmering är 
också ett svårare avsnitt än nå- 
got annat här i livet. Eftersom 


CLS 

PRINT 
PRINT 
PRINT 
PRINT 


:PRINT 
:PRINT 
: PRINT 
:PRINT 
PRINT :PRINT 
PRINT :PRINT 
INPUT Q 





TAB(10);"1. 
TAB (10) ;"2. 
TAB (10) ;"3. 
TAB (10) ; "VAD ÖNSKAS"; 
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den allra minsta detalj kan göra 
att ett program inte fungerar. 
Skriver jag ett brev så spelar 
det inte så stor roll om jag skri- 
ver lite fel eller glömmer ett 
kommatecken. Men i program- 
mering kan ett glömt litet tec- 
ken få förödande konsekvenser. 


Byta bibliotek 


Jag fick ett brev från Åke A i 
Landskrona, som undrar om 
man på en PC kan byta biblio- 
tek i ett basicprogram? Svaret 
är ja. Man kan byta bibliotek, 
göra nya underbibliotek och ta 
bort bibliotek. Jag rekommen- 
derar bara att använda funktio- 
nen för att byta bibliotek, därför 
att man har en dålig överblick i 


TAB (10) ; "MENY" 

TAB (10); "FÖR JULHÄLSNINGAR" 
SKRIVA UT ADRESSLAPPAR" 
SKRIVA UT JULKORT" 


AVSLUTA" 


basic. Skall man skapa nya eller 
ta bort bibliotek så gör detta 
från DOS-miljön och inte från 
ett basicprogram. 

Jag har skrivit ett litet pro- 
gram som demonstrerar hur det 
fungerar. Jag har även med 
funktionen BEEP, som kan väc- 
ka sömniga personer. Program- 
met fungerar bara i basic på en 


För GW-basic 


Här kommer programmet: 
10 CLS 
20 BEEP 
30 PRINT "ATT SKIFTA BIB- 
LIOTEK” 
40 CHDIR ”C:/ARBETET” 
50 FILES 
60 BEEP 
70 STOP 
80 CHDIR ”C:/BASIC” 
90 FILES 
100 BEEP 

Julkortsprogrammet innehål- 
ler inga konstigheter. Program- 
met är skrivet för GW-basic, så 
om du har en VIC-64 eller lik- 
nande bör du ändra alla 
LPRINT till PRINT och istället 
ha en OPEN 444 innan utskriften 
och ett CLOSE 4 efter utskrif- 
ten. 

Lycka till! 


ON Q GOTO 110, 


IF Q>3 
CLS:RE 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
REM 


OR <1 
STORE 
: PRINT 
:PRINT 
:PRINT 
: PRINT 
QQ$ 


300,680 
THEN 10 


TAB (10) ; "UTSKRIFT AV ADRESSLAPPAR" 

TAB (10); "GLÖM INTE ATT STARTA SKRIVAREN" 
TAB (10); "NÄR DU ÄR KLAR SKALL DU" 

TAB (10) ; "TRYCKA PÅ RETURN"; 


READ NS (1) ,F$(1) ,AD$(1) PN$(1),POS(1) 


IF N$(1)="-1" 


THEN 280 


READ N$(2) ,F$(2) AD$(2),PN$(2) ,POS(2) 


IF N$(2)="-1" 


LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
GOTO 1 
REM 
GOTO 1 
CLS:RE 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
REM 
FOR 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
NEXT I 
REM 
GOTO 1 
END 


THEN 280 


I LPRINT 


TAB (1 
TAB (1 
TAB (1 


0) ;N$(1);" ";F$(1);TAB(50);N$(2);" 
0) ;AD$ (1) ; TAB (50) ; AD$ (2) 
O);PN$(1);" ";POS(1);TAB(50);PN$(2);" 


";F$(2) 


";POS(2) 


I DLPRINT 


70 


0 
STORE 
:PRINT 
: PRINT 
:PRINT 
PRINT 
: PRINT 
QQS 


TAB (10) ; "UTSKRIFT AV JULKORT" 

TAB (10) ; "HUR MÅNGA VILL DU HA"; :INPUT N 
TAB (10); "GLÖM INTE ATT STARTA SKRIVAREN" 
TAB (10); "NÄR DU ÄR KLAR SKALL DU" 

TAB (10) ; "TRYCKA PÅ RETURN": 


I= 1 TO N 


:DLPRINT 


HR RK RA 
"& 
"a 
"yr 
"+ 
"+ 
"+ 
LE 
"yr 
tr 
"& 
"+ 
tr 
tr 
"xx xx 
"& 
nr 
"är rx 
"+ 
"är 
LL r 
"& 
tr 


NA KAR 


RJ. JR. Sik. Ib J.J Jb SE JE SE i JE SR då JR JE SE JR Jå JE JE JE JR dt JE JE JE JE Jå JE JE de JE JE JE JE JE JE JE JE JE JE SE JE SE SE SE AL 
& " 
At" 
kx” 
FST 


& HH 


+» 
»x 
» 
+» » » >» 
» 
+ » » 


& 
& 
kx” 
ÖNSKAR . 
& " 
& MN 
Ar " 
+ 
ror kos askar oake oa ak oa ak okok oskar oa ak oa okok okok ooo oe ooo RR AR ok RR LU 


A " 


JR JE JE 3 JE JE JE JE JE JE JE JE JE 0 JE JE JR JE JE SE JE JRR SR SE JR SR SR JR JR JR SR SR. SE. SE Sk JE JR dk SR JR SR JR ds An 
AR " 
Ax" 
JE JE JE JE JE SE JE JE JE JE JE JR JE JE JE JE JE JE Jå JE JE db JR JE SE JE SE SR JR SR JE JE J.J SE. SR J.J SR JR JR JR SR SE 3 Ax” 
+" 
& 


FR JE SE SR JE SE SE SE SE SE Jb JE JR JR JE SE JE JE JE JE JE JE JE JR JE 3 JE JE SE JE SR SR JR SR SE JE JE Sh JP JE SR SR JR OR SR SR SR SL 


:LPRINT :LPRINT 


0) 


DATA ARBETET, ,BOX 125,201 21, MALMÖ | 
DATA LINDEBERG, CHRISTIAN, BOX 6,236 00,HÖLLVIKEN 
DATA -1,-1,-1,-1,-1 
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Julrim på datorn 


När julen närmar sig 
brukar en hel del börja 
att tänka på julrim till 
julklapparna. Vi som har 
datorer kan vara lite me- 
ra avancerade och låta 
datorn skriva en liten 
dikt till paketen. Ni som 
har varit med länge kom- 
mer säkert ihåg HAIKU- 
dikterna, som jag har haft 
i tidigare artiklar. 

Vad är en HAIKU-dikt? Enligt 
Stora Focus: ”haiku, japansk 
treradig versform med sam- 
manlagt 17 stavelser, fördelade 
enligt schemat 5-7-5. 

Haikupoesin hade sitt ur- 
sprung från 1600-talet då famil- 
jen Tokugawa 1603 erövrade 
shoguntiteln och den egentliga 
makten. Städerna och borgarna 
fick större betydelse i kulturli- 
vet, med tryckkonstens utbred- 
ning, mer folkliga teaterformer 
och haikupoesins blomstring.” 


Exakthet 


Haikudikten lämpar sig väl för 
datorer genom sin exakthet. 





Här kommer en Haikudikt: 


Tomten skrattande 
under en stilig julgran 
en fridfull juldag 

Om du tittar på dikten ovan så 
hittar du DATA-satser i sju oli- 
ka rader. 


Om vi ser närmare på dessa 
rader i dikten intill så hittar du 
tekniken med dikterna. 

I dikten ser du att jag tagit ett 
ord från varje DATA-rad. 


I rad 220 och rad 310 har jag 
ordet ”EN”. Tänk på att det mås- 
te finnas lika många ord på var- 
je rad. 


Antalet ord styr du med 
slumptalsraderna 30 till 90. Om 
du använt siffran sex, så måste 
du ha sex ord i varje DATA-rad. 
Du kan också använda ett ord 
flera gånger, som jag har gjort i 
rad 200. I varje loop med READ, 
så tar datorn ut ett ord beroende 
på den siffra datorn har fått i 
raderna 30 till 90. 





När programmet har skrivit ut 
dikten i raderna 400 till 420, så 
gör programmet en RESTORE i 
rad 430. Detta för att datorn 
skall kunna använda ordet igen 
till nästa dikt. 


Sista delen av programmet 
skrivet ut dikterna i den ord- 
ning orden står i datasatserna. 


Skriva ut 


Om du har en skrivare, så kan 
du låta programmet skriva ut 
dem direkt genom att ändra i 
raderna 400 till 420 till LPRINT 
om du skriver en GWbasic lik- 
nande dialekt. Har du en VIC el- 
ler liknande kan du använda 
kommandot OPEN 444 på en rad 
395 och avsluta med ett CLOSE 
4 på en rad 425. 
Lycka till med dikterna! 


Ett fel 


I veckan fick jag ett brev från 


120 DATA TOMTEN, MÅNEN, SOLEN, BARNEN, JULEN, MAMMA 


160 DATA SUCKANDE, BUGANDE, SKRATTANDE, LEENDE, KOMMANDE , KRAMMANDE 


200 DATA OVAN, BAKOM, UNDER, ÖVER, ÖVER, GENOM 


250 DATA KNOTIG, SLITEN, GYLLNE, STILIG, BLÅSIG, GLAD 


290 DATA KÄRVE, SPILTA, LAMPA, LEKPLATS , HAVSSTRAND, JULGRAN 


340 DATA SÅDAN, KULEN, FRIDFULL, TIDIG, SANDIG, STJÄRNKLAR 


380 DATA HÖSTKVÄLL , VINTERNATT, KVÄLLSTUND, LUCIAMORGON, JULDAG, 





Ö Observera att du måste skriva dikten utan mellanslag och 


rad för rad. 


Christian 
Lindeberg 








HEMDATORER 


Conny O i Lund. Conny har pro- 
blem med ett kalorieberäk- 
ningsprogram, som mycket lik- 
nar en del av förra veckans 
bantningsprogram. Jag kan inte 
hitta mer än ett fel i ditt pro- 
gram och det är rad 220. Du får 
inte ha ett mellanslag i varia- 
beln KAL (L). Detta är anled- 
ningen till att det blir ”Totalt 0 
kalorier”. Det andra felet tror 


jag beror på när du slår in nam- 
net på dina födoämnen. Jag 
skall visa med ett exempel. 

Du har en DATA-rad, som ser 
ut så här: 

410 DATA 
Glass,225, Mjölk,62,Smör,748 

Faran att använda skrivsättet 
med både stora och små bokstä- 
ver är att du måste komma ihåg 
hur du skrev i DATA-raden. Om 
du nu söker på SMÖR eller 
smör, så kommer datorn inte att 


10 CLS 

20 RANDOMIZE (TIMER) 
30 B=INT(RND+6+1) 
40 C=INT (RND+6+1) 
50 D=INT (RND+6+1) 
60 F=INT(RND>+6+1) 
70 G=INT (RND>+6+1) 
80 J=INT (RND>6+1) 
90 K=INT (RND>6+1) 
100 FOR I=1 TO 6 
110 READ B$ (TI) 


hitta födoämnet eftersom du i 
DATA-satsen har stavat ordet 
Smör. Om Du tittar på mina 
program så använder jag alltid 
stora bokstäver (VERSALER), 
för att jag inte skall göra fel. 
Annars måste du lägga in alla 
kombinationer i DATA-satser- 
na. Då skulle rad 410 se ut så 
här: 

410 DATA Glass,225,GLASS, 
225,glass,225 o s v 

Detta är ett lite onödigt arbete. 

En annan sak, som är mycket 
viktig, i DATA-satser är att man 
håller kontroll på sina komma- 
tecken. Om du råkar få ett kom- 
matecken i slutet på en rad så 
läser datorn detta som om det 
fanns tecken efter kommateck- 
net. Datorn kommer då att lagra 
en tom sträng eller siffran 0 om 
det är en numerisk variabel 
man läser med READ-satsen. 

Lycka till med programme- 
ringen. 





120 DATA TOMTEN, MÅNEN, SOLEN, BARNEN , JULEN, MAMMA 


130 NEXT I 

140 FOR I1=1 TO 6 
150 READ C$ (I) 
160 
170 NEXT I 

180 FOR I=1 TO 6 
190 READ DS (TI) 


DATA SUCKANDE, BUGANDE, SKRATTANDE, LEENDE , KOMMANDE , KRAMMANDE 


200 DATA OVAN, BAKOM, UNDER, ÖVER, ÖVER, GENOM 


210 NEXT I 

220 ES$="EN" 

230 FOR I=1 TO 6 
240 READ F$ (TI) 


250 DATA KNOTIG, SLITEN, GYLLNE, STILIG, BLÅSIG, GLAD 


260 NEXT I 
270 


280 READ GS$ (TI) 


290 DATA KÄRVE, SPILTA, LAMPA, LEKPLATS, HAVSSTRAND, JULGRAN 


300 NEXT I 

310 H$="EN" 

320 FOR I=1 TO 6 
330 READ J$ (TI) 


340 DATA SÅDAN, KULEN, FRIDFULL, TIDIG, SANDIG, STJÄRNKLAR 


350 NEXT I 
360 FOR I=1 TO 6 
370 READ K$ (I) 


380 DATA HÖSTKVÄLL, VINTERNATT, KVÄLLSTUND, LUCIAMORGON, JULDAG, ADVENT 


390 NEXT I 

400 PRINT:PRINT TAB(10);B$(B);" '";C$(C) 

410 PRINT TAB (10) ;D$(D);" ";E$;" ";F$(F);" ";G$ (G) 
420 PRINT TAB(10);H$;" ";J$(J);" ";K$(K) 

430 RESTORE 

440 PRINT:PRINT TAB(10);"VILL DU HA EN NY DIKT (J/N)"; 
450 INPUT A$ 

460 IF A$="J" THEN 10 


470 PRINT:PRINT TAB (10) ;'"TACK FÖR ATT DU VILLE LÄSA MINA DIKTER" 
480 CLS:PRINT:PRINT TAB (10) ; "ORIGINALDIKTERNA" 

490 FOR I=1 TO 6 

500 PRINT B$(I);" ";C$ (I) 

510 PRINT D$(I);" ";E$;" ";F$(I);" '";G$ (I) 

520 PRINT H$;" ";J$(I);:" ";KS$(I) 

530 PRINT:PRINT: INPUT "TRYCK PÅ RETURN" ;Q$ 

540 PRINT:PRINT 

550 NEXT I 

560 END 
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el 


Nu är det tid att slå sig 
ner vid datorerna igen. 
Jag har använt somma- 
ren att mellan baden tes- 
ta en del nya program. 


Jag började med MS-DOS 5.0 
från Microsoft och sedan med 
IBM's DOS 5.0. Skillanden mel- 
lan de två operativsystemen var 
att MS-dos 5.0 var en så kallad 
”upgrade”, så att man startade 
inte datorn från diskett 1, utan 
man installerade den nya dosen 
genom att starta som vanligt 
och sedan från ett SETUP-pro- 
gram från diskett 1 så installe- 
rades den nya dosversionen. 
IBM's DOS var en vanlig instal- 
lation så att man startade upp 
datorn på diskett 1. 

Bland nyheterna fanns en rik- 
tig editor, så att alla som inte 
trivs med EDLIN kan nu använ- 
da programmet EDIT i stället. 
Programmet Edit är egentligen 
editorn till Qbasic, som man 
också får med till programmet. 

Qbasic är den nya typen av 
basic där du kan programmera 
utan att använda radnummer. 
Man delar in programmet i ruti- 
ner, som man sedan anropar. 
Den vanliga GWbasic finns ock- 
så med, till IBM heter den IBM 
basic. 


Installation 


En sak är viktig att tänka på. Du 
kan inte installera IBM's DOS 
5.0 på annat än IBM datorer. 
Men Microsofts MS-DOS 5.0 
kan du installera på alla dato- 
rer. IBM's DOS förutsätter att 
du har IBM's speciella ROM- 
kapsel i datorn för bland annat 
BASIC och QBasic skall funge- 
ra. Fungerar inte QBasic så fun- 
gerar inte editorn EDIT, vilken 
egentligen är en del av QBasic. 

Minneshanteringen har blivit 
klart förbättrad, man kan få ut 
cirka 630 Kb av de 640 Kb man 
har från början. Skall man kun- 
na utnyttja DOS 5.0 bör man ha 
minst en 80286 processor och ett 
internminne på minst 2 Mb och 
hårddisk. 

På sekundärminnessidan kan 
DOS 5.0 hantera hårddiskar på 
upp till 2 Gb (1 Gigabytes = 
1000 MB = 1 000 000 000 bytes) 
och de nya diskettstationerna, 
som klarar av 3,5 tums disketter 
på 2,88 Mb lagringskapacitet. 

DOS 5.0 har också en inbyggd 
hjälp så att man kan skriva 
kommandot följt av/? så får man 
en hjälp på skärmen. 

DOS 5.0 innehåller mycket, 
men uppfyller du inte kraven 
ovan så behöver du byta till 
DOS 5.0. 


Egna program 

Under sommaren så har jag 
också testat ett nytt Basic-pro- 
gram. Programmet heter Visual 
Basic och kommer från Micro- 
soft. Programmet går bara att 
köras under Windows. Program- 
met är mycket lättarbetat och 
en stor fördel är att det innehål- 
ler en kompilator så att man gör 
egna EXFE-filer av sina program. 
Eftersom programmet arbetar 
med och under Windows så kan 
man göra verkligt professionella 
layouter. 

En förklaring till ordet kompi- 
lator. Man skiljer på två olika 
typer av programmeringsspråk. 
Det ena interpreterande och det 
andra är kompilerande språk. 
När vi kör våra basicprogram 
måste vi först ladda in vår basic 
och sedan när vi skriver RUN, 
så översätter basictolken vårt 
program till maskinspråk och 
vårt program kör. Basic är ett 
typiskt interpreterande språk. 

Om vi jämför med Pascal så är 
det ett kompilerande språk. För 
att Pascal gör ett maskinspråks- 
program av Pascalprogrammet 
så att man kan köra sitt Pascal- 
program direkt i datorn och be- 
höver inte ladda in sitt Pascal- 
program först. 
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Till en hel del av de moderna 
Basic-dialekterna finns i dag 
kompilatorer. Alltså ett program 
som Överför basicspråket till 
maskinspråk, vilket gör att man 
inte behöver ladda in basicpro- 
grammet innan man skall köra 
sitt program. En fördel till med 
en kompilator är att ingen kan 
gå in och göra något i program- 
met eftersom det ligger i ma- 
skinspråk. Visual basic har en 
sådan kompilator i sitt program. 


Bra investering 


Har du Windows 3.0 till din da- 
tor så är det en bra investering 
att köpa Visual Basic. Visual 
Basic använder inga radnum- 
mer utan har etiketter på ruti- 
nerna. Fördelen med denna typ 
av programmering är att den 
blir lättare att strukturera. Det 
är det vanligaste problemet med 
att programmera i Basic att pro- 
grammen blir ganska röriga. 
Till er som vill börja med QBA- 
SIC eller VISUAL BASIC re- 
kommenderar jag att låna bo- 
ken ”Programmera med Struk- 
tur” av Sven Burman och Bo 
Bäckman. Förlaget är Liber och 
ISBN-nummer är 91-40-80072-5. 
Tillbaks till Visual Basic. Visual 
Basic har också ett ikon-biblio- 
tek, som innehåller 400 st ikoner 
(ikon är en liten symbolbild). 
Dessa ikoner kan du använda i 
dina basicprogram, alla är i 16 
färger. Du kan också göra egna 
ikoner i den medföljande ikone- 
ditorn. 


program 


Du kan ta in bilder som du har 
gjort i Windows Paintbrush, 
men bilderna måste då ha ex- 
tensionen. BMP. 

En ovanlig detalj är att Visual 
Basic kan arbeta med DDE (Dy- 
namic Data Exchange). DDE är 
en mekanism, som understödjs i 
Windows. Om jag har till exem- 
pel kalkylprogrammet Excel 
kan jag med ett program skrivet 
i Visual Basic koppla detta till 
en kalkyl som jag har gjort i Ex- 
cel. Det finns många Windows- 
applikationer, som kan använda 
DDE. 

I Visual Basic kan man göra 
egna rullgardinsmenyer, vilket 
ger ett mycket elegant intryck. 
De applikationer du gör i Visual 
Basic och kompilerar är du fri 
att sälja. 

Det finns mycket mera att sä- 
ga om Visual Basic, men jag 
återkommer med mera i kom- 
mande artiklar. 

Jag har fått en del brev i som- 
mar och bland dem var ett från 
Pia K i Malmö. Pia ville ha ett 
litet program, som hon kunde 
använda som kontroll vid bant- 
ning. 

Jag har gjort ett litet program, 
som också kontrollera om du är 
för tjock. Förut räknade man 
med längden minus 100 och det 
som blev över skulle sen över- 
ensstämma med vikten. Nu an- 
vänder man i stället en annan 
formel där man tar vikten i kilo 
och dividerar med kvadraten på 
längden i meter. Värdet man får 
fram skall vara under 25 för att 
inte vara överviktig. Ar värdet 
mellan 25 och 30 är man över- 
viktig och är det över 30 är man 
i riskzonen för olika välfärds- 
sjukdomar. 

Jag har skrivit programmet 
med förklarande REM-satser. 
Lycka till Pia! 

Ha en bra vecka! 


Bantningsprogram 


10 REM ARAA KARA KRKA KKR A RAA AAA TNMATNING AV VIKT 


20 CLS 

30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 
90 PRINT 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


: PRINT 
"BANTNINGSPROGRAM " 


"SOM DU SKALL SVAR PÅ" 


"HUR MYCKET VÄGER DU"; 
INPUT KG 


INPUT L 


TJ = KG / (L) ” 2 


PRINT 
PRINT "HUR AKTIV ÄR DU?" 
PRINT 

PRINT "1. STILLASITTANDE" 
PRINT "2. NÅGOT AKTIV" 
PRINT "3, MÅTTLIGT AKTIV" 
PRINT "4, MYCKET AKTIV" 
PRINT 
INPUT 
IF AK 
IF AK 
IF AK 
IF AK 


l THEN AK 
2 THEN AK 
3 THEN AK 
4 THEN AK 


31 
33 
35 
37 


Wonon oh 


KAL = AK + KG 


PRINT 


PRINT 


PRINT "UTTRYCKT I KG", 
INPUT NE 
MIN = NE >< 1000 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT NE; "KG PER VECKA" 
PRINT : PRINT 

PRINT "VECKA 1."; KAL - MIN; 
KG = KG - 1: KAL = AK > 
PRINT "VECKA 2."; KAL - 

KG = KG - 1: KAL = AK < 
PRINT "VECKA 3."; KAL - MIN; 
KG = KG - 1: KAL = AK Xx 
PRINT "VECKA 4."; KAL - 
KG = KG - 1: KAL = AK > 
PRINT "VECKA 5."; - 
PRINT 


KAL - MIN; 


"NU KOMMER EN DEL FRÅGOR" 


PRINT "HUR LÅNG ÄR DU ANGE I METER"; 

REM kkr kkkkkArKAKAAALTRÄKNING AV TJOCKVÄRDE 

IF TJ < 25 THEN D$ = "DU HAR INGET ATT OROA DIG FÖR" 

IF TJ > 25 AND TJ < 30 THEN D$ = "DU BÖR NOG VÄGA LITE MINDRE" 


IF TJ > 30 THEN D$ = "SÄTT OMEDELBART IGÅNG MED ATT BANTA" 
REM fökköbaokakkkr kkr kAAAAAARKTIVITET 


"SKRIV SIFFRAN FÖR AKTIVITETSGRAD"; AK 


REMYfAxkkAAKAKAKA KAKA UTRÄKNING AV KALORIEBEHOV 
REM fäkäkkkKAKAAAAKARA KATLORIEBEHOV PER DAG 
PRINT "DITT KALORIBEHOV PER DAG" 


PRINT "FÖR ATT BEHÅLLA DIN VIKT ÄR ="; 
REMZ Ak kAkkkkkkkkkkkAx BANTNING 


KAL 


PRINT "HUR MYCKET VILL DU GÅ NER PER VECKA" 


REMYAkkkkK KAR RA ARA RAR UTSKRIFT AV BANTNINGFÖRESKRIFTER 
"FRÅN OCH MED NU FÅR DU BARA" 

"ATA FÖLJANDE ANTAL KALORIER" 

"PER VECKA FÖR ATT GÅ NER" 

"KALORIER" 

; "KALORIER" 

"KALORIER" 

; "KALORIER" 


- "KALORIER" 
: PRINT " DITT VÄRDE BLEV ="; 


TJ; ” ne DS 
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Bantningsprogram 


Christian 


Lindeberg 





HEMDATORER 





Det är trevligt att vara 
tillbaka. Förra veckans 
nummer hann knappt 


komma i brevlådan innan 
telefonen ringde. Som- 
maren har tydligen varit 
matrik eftersom man be- 
hövde ett bantningspro- 
gram. 


En av dem som ringde, som 
ville vara anonym, hade för sig 
att jag något tidigare år hade 
haft ett bantningsprogram med 
en inbyggd kaloritabell. 


Det är alldeles riktigt och jag 
har skrivit om förra veckans 
program och lagt till en kalori- 
tabell. Tabellen kan du sedan 
utvidga själv. Men tänk på att 
de två sista raderna måste du 
flytta neråt hela tiden för att de 
måste alltid ligga sist. 


Du börjar alltså nästa datarad 
på rad 1190 och skriver in födo- 
ämnets namn och sedan efter 
kommatecknet hur många kalo- 
rier det innehåller. Ha inte mer 
än tre födoämnen på varje rad. 
När du har kompletterat listan 
så avslutar du med två rader 
-1,-1 precis som raderna 1190 
och 2000. 


Programmet kan förskönas på 
många punkter men det tar i så 
fall så stor plats. Till nästa gång 
skall jag byta ut kaloridelen och 
lägga till en sorteringsrutin. 


Det har kommit en del frågor 
om program till PC-datorer, som 
kan vara av praktisk nytta. Jag 
har titta på två intressanta pro- 
gram. Det ena heter PCGlobe 
och är en ”elektronisk atlas”. 
Programmet innehåller kartor, 
grafik, fakta och tabeller för 
mer än 190 länder. Det enade 
Tyskland finns också med men 
man kan också få uppgifter om 
Tyskland som öst och väst. De 
största städerna har även kli- 
mattabeller, så att man kan se 
temperaturförändringen över 
året. Till varje land finns flagga 
och nationalsång. 


Programmet innehåller också 
en stor databas med uppgifter 
om hälsovård, skola, ekonomi 
och mycket, mycket annat. Det 
finns i programmet också en au- 
tomatisk valutaomvandlare, 
som omvandlar valutor från oli- 
ka länder till svensk eller någon 
annan valuta. Internationella 
telefonkoder och telexkoder och 
beräkningar mellan olika plat- 
ser genom att bara peka på dem. 


Det finns också uppgifter om 
styrelseform, ledare och politis- 
ka partier för alla länderna. 


En annan intressant sak med 
programmet är att man kan ex- 
portera både grafik och text till 
andra program. Detta är en bra 
sak när man skall skriva egna 
saker för då kan man hämta 
fakta direkt från programmet. 


Jag skulle sammanfatta pro- 
grammet, som mycket bra både 
för dig som går i skolan och för 
alla som vill vara allmänbildade. 
Ett bra sätt att snabbt skaffa sig 
information om olika länder. 


Det andra programmet, som 
jag har tittat på är EZCosmos. 
Detta är ett astronomiprogram. 
Det mest fantastiska, som jag 
har sett i denna klass. Du kan 
studera himlen med alla plane- 
ter och stjärnor. Du kan själv 


bestämma om du vill stå i Mal- 
mö eller i Sydney eller vilken 
plats som helst på jorden. Hela 
stjärnhimlen kan animeras så 
att jag kan bestämma hur 
stjärnhimlen såg ut 1986 i janu- 
ari till mars samma år i Peking. 
Jag bestämmer själv tidsinter- 
vallet för animeringen, så det 
kan vara ett år mellan bilderna 
eller en timme. Man kan även 






10 CLS 
20 DIM F$(25),V 
30 CLS:PRINT:PRINT:PRINT " 


(25), KAL(25),TOT(25) 
MEN Y” 


välja om månen skall animeras 
på samma gång. Månen visas då 
i sin rätta fas. Jag är ingen ama- 
törastronom, men jag blev myc- 
ket fascinerad av hela program- 
met. För dig som är intresserad 
av det som finns utanför jord- 
klotet är detta ett mycket bra 
program. 

Lycka till med bantningspro- 
grammet och ha en bra vecka! 
Se 


ne 
SSE 


40 PRINT :PRINT "1. HUR MYCKET SKALL DU VÄGA" 
50 PRINT :PRINT "2. HUR MÅNGA KALORIER INNEHÅLLER MIN MAT” 


60 PRINT :PRINT "3. AVSLUTA" 


70 PRINT :PRINT "VAD ÖNSKAS";: INPUT Q$ 


80 ON VAL(Q$) GOTO 450,100,930 
90 GOTO 30 
100 CLS:PRINT :PRINT 


110 PRINT "KALORIEBERÄKNINGSPROGRAM" 
120 PRINT:PRINT"VILL DU HA EN LISTA ÖVER ALLA ÄMNEN (J/Ny";: INPUT Q$ 


130 IF Q$="J" OR Q$="j" THEN 360 


140 PRINT:PRINT "HUR MÅNGA FÖDOÄMNEN" 
150 PRINT "VILL DU BERÄKNA";: INPUT N 


160 PRINT :PRINT 
170 FOR K=1 TON 


180 PRINT:PRINT "VILKET FÖDOÄMNE";: INPUT F$(K) 
190 PRINT "HUR MYCKET I GRAM" ;:INPUT V(K) 


200 NEXT K 
210 L=L+1 
220 READ A$,B 


230 IF F$(L)=A$ THEN KAL(L)=B:RESTORE:GOTO 210 
240 IF B=-1 THEN PRINT "ÄMNET FINNS EJ":RESTORE:GOTO 210 


250 IF L>N THEN 270 
260 GOTO 220 

270 FOR K=1 TON 
280 TOT(K)= 
290 NEXT K 
300 FOR K=1 TON 


V(K)"KAL(K)/100:SUM=SUM+TOT(K) 


310 PRINT:PRINT F$(K);" GER ";INT(TOT(K));" KALORIER" 


320 NEXT K 


330 PRINT:PRINT "TOTALT BLIR DET ";INT(SUM);" KALORIER" 
340 RESTORE:PRINT :PRINT "TRYCK PÅ RETURN"; 


350 INPUT Q$:GOTO 30 
360 CLS 

370 READ A$,B:R=R+1 
380 IF B=-1 THEN 420 
390 PRINT A$,B 


400 IF R/15=INT(R/15) THEN PRINT;: INPUT Q$ 


410 GOTO 370 


420 PRINT:PRINT "TRYCK PÅ RETURN"; INPUT Q$ 


430 CLS:RESTORE 
440 CLS:GOTO 140 
450 CLS 


460 PRINT :PRINT:PRINT "BANTNINGSP ROGRAM" 
470 PRINT:PRINT "NU KOMMER EN DEL FRÅGOR" 


480 PRINT "SOM DU SKALL SVAR PÅ" 


490 PRINT:PRINT "HUR MYCKET VÄGER DU";: INPUT KG 
500 PRINT "HUR LÅNG ÄR DU ANGE I METER"; 


S10 INPUT L 


520 REM "teer UTRÄKNING AV TJOCKVÄRDE 


530 TJ = KG / (L) "2 

540 IF TJ < 25 THEN D$ = 
550 IF TJ > 25 AND TJ < 30 THEN D$ = 
560 IF TJ > 30 THEN D$ = 


"DU HAR INGET ATT OROA DIG FÖR" 

"DU BÖR NOG VÄGA LITE MINDRE" 
"SÄTT OMEDELBART IGÅNG MED ATT BANTA" 
570 PRINT:PRINT "HUR AKTIV ÄR DU?" 


580 PRINT :PRINT "1. STILLASITTANDE” 


590 PRINT "2. NÅGOT AKTIV" 
600 PRINT "3. MÅTTLIGT AKTIV” 


610 PRINT "4. MYCKET AKTIV" 


620 PRINT :PRINT"SKRIV SIFFRAN FÖR AKTIVITETSGRAD";: INPUT AK 


630 IF AK=1 THEN AK=31 
640 IF AK=2 THEN AK=33 
650 IF AK=3 THEN AK=35 
660 IF AK=4 THEN AK=37 
670 KAL=AK”KG 

680 CLS 


690 PRINT:P RINT "DITT KALORIBEHOV PER DAG" 
700 PRINT "FÖR ATT BEHÅLLA DIN VIKT ÄR =";KAL 
710 PRINT:PRINT "HUR MYCKET VILL DU GÅ NER PER VECKA" 


720 PRINT "UTTRYCKT I KG"; 
730 MIN=NE”1000 


INPUT NE 


740 PRINT :PRINT "FRÅN OCH MED NU FÅR DU BARA" 
750 PRINT "ÄTA FÖLJANDE ANTAL KALORIER" 

760 PRINT "PER VECKA FÖR ATT GÅ NER";NE:"KG" 
770 PRINT :PRINT "VECKA 1.":KAL-MIN;"KALORIER" 


780 KG=KG-NE:KAL=AK"KG 


790 PRINT "VECKA 2.";KAL-MIN;"KALORIER" 


800 KG=KG-NE:KAL=AK"KG 


810 PRINT "VECKA 3.";KAL-MIN;"KALORIER" 


820 KG=KG-NE:KAL=AK”KG 


830 PRINT "VECKA 4.";KAL-MIN;"KALORIER" 


840 KG=KG-NE:KAL=AK”KG 


850 PRINT "VECKA 5.";KAL-MIN;"KALORIER" 


860 KG=KG-NE:KAL=AK”KG 


870 PRINT :PRINT:PRINT "OM DU FÖLJER DETTA FÖRSLAG" 

880 PRINT "KOMMER DU ATT EFTER 5 VECKOR" 

890 PRINT:PRINT "VAGA'";INT(KG”"10+.5)/10;"KG" 

900 PRINT : PRINT " DITT VÄRDE BLEV ="; INT(TJ"100+.5)/100 ; " ": D$ 
910 PRINT :PRINT "TRYCK PÅ RETURN"; INPUT Q$ 


920 GOTO 30 


930 CLS:PRINT:PRINT:PRINT TAB(20);"” TACK FÖR IDAG ”":END 
1000 DATA GLASS,225, MJÖLK,62,SMÖR, 748 

1010 DATA GRÄDDE, 142, OST,400 .CORNFLAKES, 387 

1020 DATA HAVREGRYN, 400, VETEMJÖL, 350, RIS, 341 

1030 DATA MAZARINER, 479, TUNNBRÖD, 375, FRANSKBRÖD, 277 
1040 DATA KNÄCKEBRÖD, 371 MAKARONER, 357, WIENERBRÖD 449 
1050 DATA MOROT 35, POTATIS, 95, RÖBETA, 47 AVOCADO, 21 

1060 DATA BLOMKÅL 25, CHAMPINJON, 13, GURKA, 12,LÖK, 36 

1070 DATA LINSER, 340, MAJS, 83, PAPRIKA ,32, PURJOLÖK, 26 

1080 DATA TOMAT ,20, VITKÅL. ,32, ÄRTER 73, RABARBER, 13 

1090 DATA SALLAD, 17 ,SOJABÖNOR, 403, SPENAT, 21 

1100 DATA BANAN, 93, APELSIN, 49, GRAPEFRUIT, 35, HALLON,48 
1110 DATA JORDGUBBAR .39,KIWI ,660,PÄRON, 57, ÄPPLE ,62 

1120 DATA BIFF ,200, LEVER, 132, KYCKLING, 158, FALUKORV, 250 
1130 DATA FLÄSKFILE, 111 SKINKA, 250, KOTLETT, 203 

1140 DATA ENTRECOTE 200, KASSLER 230, WIENE RKORV 270 

1150 DATA GÄDDA .79,SPÄTTA, 88,SILL, 219, TORSK, 81 

1160 DATA ÅL,287, ÄGG, 82, APELSINJUICE, 50, KAFFE,12 

1170 DATA LÄSK,40,SAFT ,246,TE,0,ÖL,35, CHOKLAD, 578 


1180 DATA HONUNG,337, SOCKER, 41 0 


1190 DATA -1,-1 
1200 DATA -1,-1 
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Så räknar datorn 
ut kalorimängder 


Den här veckan kommer 
kaloriprogrammet med 
en sorteringsrutin, så nu 
hoppas jag att Bengt S i 
Trelleborg blir nöjd. 

Jag har inte lagt in någon 
kosmetik i programmet 
för att inte göra det för 
långt. 


Christian 


Lindeberg 





HEMDATORER 





För att snygga upp det så lägg 
in lite tabuleringar. Du kan 
skriva PRINT:PRINT TAB (10); i 
stället för ett enkelt PRINT. Det 
gör att det ser lite snyggare ut. 
Har du färg och ljud till din da- 
tor så kan du göra det hela lite 
färggladare. Nu till själva pro- 
grammet. 


Förklaringar 


10—20 dimensionering av de 
indexerade variabler som an- 
vänts i programmet. S får värdet 
100, vilket betyder att jag kan 
lagra 100 födoämnen. Om du vill 
ha fler så måste du öka S för att 
inte få ett felmeddelande. 
30—110 menydelen med val till 
vad du skall göra. 

120— 160 frågar efter hur många 
födoämnen du vill beräkna. 
170—290 datorn letar reda på di- 
na födoämnen och hur många 
kalorier de innehåller. Lägg 
märke till RESTORE i raderna 
260 och 270. RESTORE gör att 
datorn kan läsa hela datalistan 
med alla fördoämnen från bör- 
jan. När datorn läser i DATA- 
satserna så bockar den av efter 
hand så att du inte kan läsa en 
redan genomgången DATA- 
sats. För att du skall slippa 
komma ihåg i vilken ordning fö- 
doämnena befinner sig i DATA- 
satserna så använder man RE- 
STORE för då kan man läsa alla 
DATA-satserna från början. 
300—420 här räknar datorn ihop 
den sammanlagda kalorimäng- 
den för dina födoämne. 


Bokstavsordning 


430—630 datorn sorterar alla fö- 
doämnen i bokstavsordning. Om 
du vill ha dem sorterade i om- 
vänd ordning så ändra tecknet 
<till> i rad 520. Variablerna X$ 
och X är slask-variabler för att 
lägga värdet från X$(I) och X(I) 
innan det läggs i variablerna 
X$(J) och X(J). Värdet måste lig- 
ga någonstans i datorn för da- 
torn kan inte hålla värdet i luf- 
ten. I raderna 570 till 600 skriver 
datorn ut listan i bokstavsord- 
ning. 

1000-1190 DATA-satser med 
namnen på födoämnen och hur 
många kalorier de innehåller. 
Om du vill lägga till fler födo- 
ämnen så fortsätter du på rad 
1190 och tar bort -1,-1. När du är 
klar så måste du lägga till en 
rad med -1,-1 för att program- 
met skall veta var slutet på lis- 
tan finns. 

10000 END slutet på program- 
met. Om du tittar i menyn på ra- 
derna 40 till 100, så ser du att i 
rad 70 står 3. 

AVSLUTA. I rad 100 har du som 
tredje val rad 10000. Konstruk- 


tionen ON... GOTO är bättre att 
använda i stället för en massa 
IF... THEN-satser. 


Konvertering 


Det kommer ibland frågor på en 
del udda kommando i olika ba- 
sicdialekter. Jag skall försöka 
besvara dem, men det kan 
ibland ta lång tid beroende på 
platsbrist. Jag fick ett par såda- 
na frågor av Torsten P i Malmö. 
Det gäller kommandona CDBL, 
CSNG och CINT i GW-Basic. 
CDBL konverterar ett enkelt 
decimaltal till ett med upp till 16 


decimaler, så kallad ”double- 
precision”. Skrives PRINT 
CDBL(TAL). 

105 = 100 


CSNG konverterar ett tal från 
”double-precision” till ett enkelt 
tal. 

CINT ger heltalsdelen av ett tal 
och höjer om decimaldelen är 
över 0.5. Jämför med INT, som 
inte höjer utan bara plockar ut 
heltalsdelen. 


Skriv följande och testa: 
10 PRINT 268.78,CDBL(268.78) 


20 PRINT == 267.3400345678, 
CSNG(267.3400345678) 
30 PRINT 
CINT(45.99), INT(45.99) 


Då ser du skillnaden på de oli- 
ka kommandon. 

Lycka till med kaloriprogram- 
met och ha en bra vecka! 


20 DIM F$(S), VIS) KALIS), TOT(S), A$(S), B(S) 


30 CLS : PRINT 


40 PRINT "KALORIEBERÄKNINGSPROGRAM" 


50 PRINT "1. LISTA P 


70 PRINT "3. AVSLUTA" 

80 PRINT : PRINT 

90 INPUT "VAD ONSKAS"; Q 

100 ON Q GOTO 430, 120, 10000 
110 GOTO 30 

120 PRINT 


FÖDOÄMNEN" 
60 PRINT "2. BERÄKNA KALORIER" 


130 PRINT "HUR MÅNGA FÖDOÄMNEN" 


140 PRINT "VILL DU BERAKNA"; 
150 INPUT N 

160 PRINT : PRINT 

170 FÖRK = 1 TON 

180 PRINT 


190 PRINT "VILKET FÖDOÄMNE":; 


200 INPUT F$(K 


) 
210 PRINT "HUR MYCKET I GRAM"; 


220 INPUT V(K) 
230 NEXT K 
240L=L+1 
250 READ A$, B 
260 IF F$(L) 


= A$ THEN KAL(L) = B: RESTORE: GOTO 240 


270 IF B = -1 THEN PRINT "AMNET FINNS EJ": RESTORE: GOTO 240 


280 IF L > N THEN 300 

290 GOTO 250 

300 FOR K= 1 TON 

310 TOT(K) = V(K) ” KAL(K) / 100 
320 SUM = SUM + TOT(K) 

330 NEXT K 

340 FORK = 1 TON 

350 PRINT 


360 PRINT F$(K); " GER "; INT(TOT(K)); " KALORIER” 


370 NEXT K 
380 PRINT 


390 PRINT "TOTALT BLIR DET "; INT(SUM); ” 


400 PRINT "TRYCK PÅ RETURN" 
410 INPUT QQ$ 
420 GOTO 30 


KALORIER" 


430 CLS : PRINT "SORTERAR LISTAN ÖVER FÖDOÄMNEN" 


440 T = 0 

450 T=T+1 

460 READ A$(T), B(T) 

470 IF A$(T) = "-1" THEN 490 
480 GOTO 450 

490 T=T-1 

500 FOR I = 1 TO T-1 

510 FOR J=1+1TOT 

520 IF A$(I) < A$(J) THEN 540 


530 X$ = A$(1): A$(1) = A$(J): A$(J) = X$ 


540 X = B(I): B(I) = B(J): B(J) = 
550 NEXT J 

560 NEXT I 

570 FOR I = 1 TOT 


580 PRINT TAB(10); A$(!); TAB(25). B(I) 


590 IF 1/15 = INT(1/ 15) THEN 
600 NEXT I 

610 PRINT "TRYCK PÅ RETURN" 
620 INPUT QQ$ 

630 RESTORE: GOTO 30 


NPUT QQ$: GOTO 600 


1000 DATA GLASS,225, MJÖLK,62, SMÖR, 748 

1010 DATA GRÄDDE, 142,0ST,400 ,CORNFLAKES, 387 

1020 DATA HAVREGRYN, 400, VETEMJÖL, 350,RIS,341 

1030 DATA MAZARINER, 479, TUNNBRÖD, 375,FRANSKBRÖD, 217 
1040 DATA KNÄCKEBRÖD, 371 MAKARONER, 35/7, WIENERBRÖD, 449 
1050 DATA MOROT, 35,POTATIS,95, RÖBETA,47 AVOCADO,27 
1060 DATA BLOMKÅL,z 25, CHAMPINJON, 13, GURKA, 12, LÖK,36 
1070 DATA LINSER, 340, MAJS,83, PAPRIKA, 32, PURJOLÖK, 26 
1080 DATA TOMAT,20, VITKÅL, 32, ÄRTER, 73, RABARBER, 13 

1090 DATA SALLAD, 17, SOJABÖNOR, 403, SPENAT, 21 

1100 DATA BANAN,93, APELSIN, 49, GRAPEFRUIT, 35, HALLON,48 
1110 DATA JORDGUBBAR, 39,KIWI ,660,PÄRON,57,ÄPPLE,62 
1120 DATA BIFF,200, LEVER, 132, KYCKLING, 158, FÅLUKORV, 250 
1130 DATA FLÄSKFILE, 111 SKINKA, 250, KOTLETT, 203 

1140 DATA ENTRECOTE, 200, KASSLER, 230, WIENERKORV, 270 


1150 DATA 
1160 DATA 


ÄDDA, 79, SPÄTTA, 88,SILL,219, TORSK,81 
L,287, ÄGG, 82, APELSINJUICE, 50,KAFFE,12 


1170 DATA LÄSK, 40, SAFT, 246, TE,0,ÖL,35, CHOKLAD, 578 
1180 DATA HONUNG, 337, SOCKER, 410 

1190 DATA -1,-1 
10000 END 
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Sa kan du spela på 
en enarmad bandit 


Christian 


Lindeberg 





HEMDATORER 





— ot nn 


Den här veckan skall 
jag skriva lite om spel. 
En fråga som dyker upp 
ofta är: ”Hur svårt är 
det att göra ett spel?.” 
Om man menar ett rik- 
tigt professionellt spel 
så är svaret ungefär två 
manår. 


Det betyder att det skulle ta 
en man två år att göra ett spel. 
Nu är det sällan att en man 
gör jobbet utan det är en hel 
stab av arbetare, som gör olika 
saker. 

Ett spel gör man på samma 
sätt, som man gör en film. 
Först skriver man ner idén se- 
dan gör man ett scenario. I 
scenariot beskriver man i de- 
talj vad som skall ske i spelet. 

Nu börjar det stora arbetet 
med att planera uppbyggna- 
den och alla händelser. Myc- 
ket ofta använder programme- 
rarna sig av stordatorer för att 
göra spelen och sedan Ööver- 
föra dem till olika koder för 
olika datorer. Att göra spel i 
dag är en industri och inget för 
den normale programmeraren. 

Men du kan göra en hel del 

enkla spel på din dator bero- 
ende på vilka grafik- och ljud- 
möjligheter du har. 
Jag har skrivit ett litet pro- 
gram om den enarmade ban- 
diten, som jag skall förklara 
en del. 


Många skriver och vill ha lite 
utförligare förklaringar = till 
programmen och i dag skall ni 
få mera kommentarer om pro- 
grammet. 


Experimentera 


Programmet är skrivet i 
GWBasic och jag använder 
inga speciella kommandon 
som bara finns i GWBasic. 
Vissa kommandon kan ha ett 
annat namn i din basicdialekt. 

Rad 10 CLS betyder. CLear 
Screen, tömmer skärmen och 
sätter markören längst upp till 
vänster. 

Om du kör med GWBasic, så 
bör du lägga till en rad 15, som 
skall se ut så här: 

15 RANDOMIZE (TIMER) 


Raden behövs för att slump- 
valsgeneratorn skall starta på 
olika tal. Om du inte har rad 15 
kommer alltid samma talserie 
fram efter det du har skrivit 
RUN. 

Raderna 20 och 30 är 
PRINT-satser, som skriver ut 
meddelandet mellan citations- 
tecknen. 

I rad 40 får variabeln PENG 
värdet 1000. 

Rad 50 är en fördröjnings- 
loop. Datorn står här och snur- 
rar utan att utföra något bara 
för att du skall få en chans att 
läsa raderna 20 och 30. Experi- 
mentera med att ändra värdet 
10000 och se effekten. 

I rad 60 startar jag med ett 
CLS. Är loppen i rad 50 för 
kort hinner jag inte att läsa i 
raderna 20 och 30. Efter CLS 
kommer en PRINT-sats. 

Att jag har två PRINT efter 
varandra i rad 70 gör att jag 


10 CLS 


20 PRINT : PRINT "DEN ENARMADE BANDITEN" 
30 PRINT : PRINT "DU FÅR 1000 KRONOR NAR DU STARTAR" 


40 PENG = 1000 
50 FOR I = 1 TO 10000: NEXT I 


60 CLS : PRINT : PRINT "HUR MYCKET SATSAR DU" 


70 PRINT : PRINT 


80 INPUT "SKRIV ETT TAL OCH TRYCK PÅ RETURN"; A 


90 PENG = PENG - A 
100 PRINT : PRINT 


110 PRINT : PRINT "TRE AV SAMMA SIFFRA GER ”; 3” A 
120 PRINT : PRINT "TVÅ AV SAMMA SIFFRA GER "; 2” A 


130 PRINT : PRINT 
140 INPUT "TRYCK PÅ RETURN"; Q$ 


150 FOR K = 1 TO INT(RND ” 10 + 3): CLS 


160 PRINT : PRINT : PRINT : PRINT 
170 Y = INT(RND ” 10) 
180 Z = INT(RND 10) 
190 Q = INT(RND " 10 


200 PRINT TAB(15); Y; NER); Z; TAB(35); Q 


210 FOR I = 1 TO 250: N 

220 PRINT : PRINT 

230 NEXT 

240 INPUT "TRYCK PÅ RETURN"; Q$ 
250 IF Y = Z THEN 270 

260 GOTO 350 

270 IF Z= Q THEN 310 

280 PRINT : PRINT "DU VANN"; 2 ”A 
290 PENG = PENG +2" A 

300 GOTO 440 

310 PRINT : PRINT "DU VANN"; 

320 PRINT 3” A 

330 PENG = PENG + 3" A 

340 GOTO 440 

350 IF Y = Q THEN 400 

360 IF Z = Q THEN 400 

370 PRINT : PRINT "DU VANN INGET" 
380 FOR I = 1 TO 1000: NEXT 

390 GOTO 440 

400 PRINT : PRINT "DU VANN": 2 "A 
410 PENG = PENG +2" A 

420 PRINT : PRINT 

430 PRINT : PRINT 


440 PRINT : PRINT "VILL DU FÖRSÄTTA!" 


450 PRINT : PRINT 


460 IF PENG < 1000 THEN PRINT "DU HAR HITILLS FÖRLORAT "; 1000 - PENG 


470 PRINT : PRINT 


480 IF PENG > 1000 THEN PRINT "DU HAR HITILLS VUNNIT"; PENG - 1000 


490 PRINT : PRINT 


500 INPUT "SKRIV J ELLER N OCH TRYCK PÅ RETURN"; A$ 


510 IF A$ = "J" OR A$ = "j" THEN 60 
520 IF A$ = "N" OR A$ = "n" THEN END 
530 GOTO 440 


får två extra radframmatning- 
ar. 





Speciell loop 


Rad 80 har en INPUT-sats för 
att jag vill ha ett värde i varia- 
beln A. I en del dialekter kan 
man inte ha någon utskrift i 
INPUT-satsen i så fall kan du 
skriva på följande sätt istället: 
80 PRINT "SKRIV ETT TAL 
OCH TRYCK PÅ RETURN”; 
85 INPUT A 


Semikolonet i slutet på rad 
80 gör att när jag kör pro- 
grammet kommer INPUT-frå- 
gan att komma direkt efter 
PRINT-satsen. I rad 90 drages 
insatsen från de antal poäng 
eller kronor du hade från bör- 
jan. 


I raderna 100 till 140 skriver 
T ut förklarande text och rad 
140 håller programmet på rad 
140 tills du har tryckt på RE- 
TURN. Raden kan skrivas om 
som rad 80. 

Rad 150 är lite speciell. Det 
är en loop, som inte har ett be- 
stämt antal gånger den skall 
snurra utan detta bestäms av 
delen INT(RND"”10+3). RND 
ger ett tal mellan 0 och 
0.999999, detta tal multiplice- 
ras med 10 och sedan lägger 
jag till 3. INT ger heltalsdelen 
och skulle RND"”10 bli noll så 
måste jag lägga till tre för an- 
nars skulle loopen inte snurra. 
Man kan naturligtvis ha ett 
fast värde hela tiden men det 
är inte så roligt. 


Rad 160 bara radframmat- 
ningar. 


Värdena = banditen 


170, 180 och 190 ger variabler- 
na Y, Z och Q ett värde mellan 
0 och 9. Det är dessa värden 
som är själva banditen. 

Värdena skrivs sedan ut i 
rad 200 och rad 210 ger dig en 
chans att se siffrorna. 

220 är radframmatningar 
och rad 230 tar fram en ny 
loop. Från rad 250 till rad 360 
testar datorn om några av vär- 
dena är lika och räknar ut hur 
mycket du har vunnit. 

Om du till exempel har fått 7 
tre gånger så händer följande. 
I rad 250 ser datorn att Y och Z 
är lika och då hoppar den till 
270 där den jämför om Z och Q 
är lika och sedan hoppar den 
till rad 310 och talar om att du 
har vunnit tre gånger insatsen. 

På samma sätt testar den av 
de andra kombinationerna. 

Har du inga siffror som är li- 
ka så hoppar datorn från rad 
260 till rad 350 och sedan 360. 
Därefter följer rad 370 som ta- 
lar om att du inte har vunnit 
något. 


Skyddsnät 


Raderna 400 och 410 är hopp 
från raderna 350 och 360, som 
också testar kombinationer av 
Z,Y och Q. 

Resten av programmet frå- 
gar om du vill fortsätta och 
hur mycket du har vunnit eller 
förlorat. 

Lägg märke till raderna 510 
och 520 att jag där testar av 
både litet och stort tecken på J 
och N. 

I rad 530 finns ett skyddsnät, 
så skulle du trycka på en an- 
nan bokstav så kommer du 
tillbaka till rad 440. 

Försök själv att snygga till 
programmet med de möjlighe- 
ter din dator har. 

Ha en bra vecka!! 





Tips för 


Den här veckan kommer 
det mer spel. Jag fick ett 
brev ifrån Nils A i Lands- 
krona, som frågade efter 
program till kortspel. Ett 
program som kunde läg- 
ga fyra bridgehänder och 
ta ut fyra kort till spelet 
Spader. Jag visste inte 
vad Spader var för något 
förrän jag tittade på TV4. 


Christian 


Lindeberg 
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Det gäller att slumpmässigt ta 
ut fyra kort och detta är inte 
speciellt svårt. Jag gjorde ett 
program, som även tog ut fyra 
bridgehänder och en pokerhand. 
Jag skall också visa på några 
tekniker man kan använda och 
peka på en del problem som kan 
dyka upp. 

Programmet består av två mo- 
ment. Ett moment är att skapa 
kortleken. Det andra momentet 
är att ta kort till de olika spelen. 

Vi börjar med kortleken. 

Raderna 10 till 230 gör kortle- 
ken, men vi tar raderna var för 
sig. Rad 10 och 20 bara upplyser 





10 REM KORTLEK 
20 REM DIMENSIONERING 
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Spader 


om vad som skall hända. En 
REM-sats hoppar <Dbasicpro- 
grammet över. 

Rad 30 dimensionerar de va- 
riabler vi behöver. Normalt kan 
man använda indexerade varia- 
bler upp till 10. Till exempel A(0) 
till A(10) utan att behöva tala 
om det i en dimensionssats. 


Oblandad lek 


Den finns basicdialekter där 
man måste dimensionera alla 
indexerade variabler. 

Variabeln V$(13) skall inne- 
hålla de 13 valörerna och 
KORT$(52) är den färdiga kort- 
leken. POK$(4,13) använder jag 
för de 4 olika bridgehänderna 
och till slut variabeln TEST$(52) 
för att testa så att kortet inte är 
taget förut. 

RANDOMIZE(TIMER) i rad 
40 används i bland annat 
GWBasic för att slumpvalsgene- 
ratorn skall starta på olika tal. 

I rad 50 står RESTORE, detta 
gör att man kan använda DA- 
TA-satserna flera gånger. Det 
kommer en ytterligare förkla- 
ring längre fram. 

Raderna 60 till 80 läser in de 
fyra färgerna SPADER, HJÄR- 
TER 0 s v från 210. 

Nästa omgång raderna 90 till 
110 läser in de 13 valörerna. 

Kortleken skapas sedan slutli- 
gen i raderna 120 till 190. 

I rad 130 får variabeln N vär- 
det 1. Sedan kommer två styc- 
ken dubbelloopar, som i varia- 
beln KORTS$(1) till KORT$(52) 
lägger in korten från SPADER 2 
till KLÖVER ESS. 


30 DIM V$(13), NME) I POK$(4, 13), TEST$(52) 


40 RANDOMIZE (TIM 

50 RESTORE 

60 FOR I = 1 TO 4 

70 READ F$(!) 

80 NEXT I 

90 FOR I = I TO 13 

100 READ V$(!) 

110 NEXT I 

120 REM SKAPAR KORTLEK 
I30N =1 

140 FOR 1= 1104, 

150 FOR J = 1 TO 1 

160 KORTS(N) = F$0) +" 
I7ON=N + 

180 NEXT ) 

190 NEXT I 

200 REM DATASATSER 


"+ V$(J) 


210 DATA SPADER, HJÄRTER, RUTER, KLÖVER 


220 DATA 2,3,4,5,6,7,8,9,10 

230 DATA KNEKT, DAM, KUNG, ESS 
240 CLS 

250 PRINT : PRINT TAB(10 
260 PRINT : PRINT TAB(10 
270 PRINT : PRINT TAB(10 
280 PRINT : PRINT TAB(10); 
290 PRINT : PRINT TAB(10 
300 PRINT : PRINT TAB(10 
310 INPUT Q$ 

320 IF VAL 


; "DATORN KAN NU GÖRA FÖLJANDE SAKER" 
;"1. FYRA KORT TILL SPELET SPADER” 

; "2. EN POKERHAND" 

"3. FYRA BRIDGEHÄNDER" 

:"4 AVSLUTA" 

"VAD ÖNSKAR DU”; 


Q$) < I OR VAL(Q$) > 4 THEN 240 


330 AS VAL(Q$) GOTO 340, 440, 540, 740 


340C 

350 FOR I - 1 TO 4 
360 A = INT(RND " 52 
370 IF TEST$(A) = 


380 TEST$(A) = "TAGET" 


390 PRINT : PRINT TAB(10); KORTS$(A) 
| 


400 NEXT 


"T CET THEN 360 


410 PRINT : PRINT TAB(10); "TRYCK PÅ ENTER": 


420 INPUT QQ$ 

430 GOTO 240 

440 CLS 

450 FOR 1=1 TO 5 

460 A = INT(RND ” 52) + 1 
470 IF TEST$(A) = 
480 TES T$(A) = "TAGET" 


490 PRINT : PRINT TAB(10); KORT$(A) 


500 NEXT I 


"TAGET" THEN 360 


510 PRINT : PRINT TAB(10); "TRYCK PÅ ENTER": 


520 INPUT QQ$ 

530 GOTO 240 

540 CLS 

550 FOR I = 1 TO 4 

560 FOR J = 1 TO 13 

570 A = INT(RND ' 52) +1 

580 IF KORT$(A) =" " THEN 570 
590 POK$(I, Nl KORT$(A) 


620 NEXT i 

630 FOR I = 1 TO 1 

640 FOR J =1+1 10 

650 IF POK$(1, !) < POKS$ 1, J) THEN 6 


660 X$ = POK$(1, ÅN POK (1, I) = POKS(1, J): POK$(1, J) = X$ 


670 NEXT J: NEXT 
680 FOR I = 1 TO 12 
690 FOR J=1+1TO1 


700 IF POK$(2, I) < POKS 2, J) THEN 720 


710 X$ = POKS$(2, I): POK$(2, 1) = POK$(2, J): POKS$(2, J) = 


720 NEXT J: NEXT I 
730 FOR I =1 TO 12 
740 FOR J=1+1 TO 13 


750 IF POKS$(3, I) < POK$(3, J) THEN 770 


760 X$ = POK$(3, 1): POK (3, I) = POK$(3, J): POKS$(3, J) = 


770 NEXT J: NEXT I 
780 FOR I = 1 TO 12 
790 FOR J =1+1TO 13 


800 IF POK$(4, I) < POK$(4, J) THEN 820 


810 X$ = POKS$(4, ÅA POK (4, I) = POK$(4, J): POK$(4, J) = 


820 NEXT J: NEXT 

830 FÖR I = 1104 

840 FOR J = 1 TO 13 

850 PRINT POK$(I, J);” ”; 
860 NEXT J 

870 PRINT : PRINT 

880 NEXT I 

890 END 


Nu har vi alltså en oblandad 
kortlek. Nu skulle man vilja 
blanda korten, som vi normalt 
gör men detta är onödigt för att 
vi kan få fram samma effekt ge- 
nom att ta ut korten slumpvis. 


Andra delen 


Över nu till den andra delen av 
programmet. Den börjar i rad 
240 och består först av en meny 
i raderna 250 till 330 där man 
kan välja på fyra olika saker. 

1. Få ut fyra kort till spelet 
SPADER. 

2. Fem kort till en pokerhand. 

3. Fyra bridgehänder. 

4. Avsluta. 

I rad 310 hamnar den siffra du 
har valt från menyn, men efter- 
som jag har använt en sträng- 
variabel, alltså bokstäver, måste 
jag med hjälp av funktionen 
VAL() föra över siffran till ett 
numeriskt värde. Om du har 
valt siffran 1 så hamnar den 
som tecknet ”1” i datorn och 
med hjälp av VAL("”1”) blir det 
det numeriska talet 1. Det kan 
vara bra att kunna detta trick 
för ibland behöver man denna 
överföring. Det finns också en 
funktion för att gå åt andra hål- 
let och den heter STR$. Om du 
har ett tal till exempel 5 och vill 
överföra det till tecknet 5 så 
skriver du så här STR$(5), så 
kommer talet att lagras som 
tecknet ”5” i datorn. Dessa tek- 
niker är bra till exempel när 
man skall plocka ut entals, tio- 
tals, hundratals osv siffror ur 
olika tal. 


Ren skärm 


Åter till korten. Rad 320 testar 
så att jag inte tryckt in en felak- 
tig siffra och i 330 hoppar pro- 
grammet till den rutin, som jag 
har valt. 

Den första rutinen startar i 
rad 340 med att rengöra skär- 
men. I den följande loopen på 
raderna 350 till 400 tar program- 
met ut 4 stycken kort. 

I rad 360 tar slumpvalsgenera- 
torn ut ett tal mellan 1 och 52. 
Jag har använt två olika sätt för 
att kontrollera att jag inte tar 
samma kort två gånger. 

I raderna 370 och 380 ser ni 
den tekniken. När en siffra är 
tagen så skapas en variabel 
TESTS$(siffra), som innehåller 
ordet ”TAGET”. När nästa kort 
kommer fram så testar pro- 
grammet i rad 370 att det inte 
finns en variabel med motsva- 
rande nummer och ordet ”TA- 
GET”. Om det finns en sådan 
variabel går programmet till- 
baka till raden 360 för att få en 
ny siffra mellan 1 och 52. 

I rad 390 skrivs korten ut. 

Nästa del, som är fem kort till 
en pokerhand ser likadan ut 
som föregående. 


Tömmer rad 60 


Den sista delen av programmet, 
de fyra bridgehänderna, är lik- 
nande de två övriga men här 
skapar jag en variabel PO- 
K$(LJ) där I är en siffra mellan 
1 och 4 och J en siffra mellan 1 
och 13. Detta kommer att mot- 
svara de olika händerna.” 
POKS(1,1) till POKS$(1,13) blir 
den första handen. Sedan blir 
POK$&$(2,1) till POKS$(2,13) den 
andra 0 s v. 

Här har jag använt en annan 
teknik för att kontrollera om 
kortet är taget. Alla korten lig- 
ger i variablerna KORTS$(1) till 
KORT$(52). Efterhand som kor- 
ten delas ut tömmer jag inne- 
hållet i rad 600. I rad 590 lägger 
jag in korten i de olika händer- 
na. Det enda som återstår är att 
sortera korten i de olika hän- 
derna, vilket sker i raderna 630 
till 820. Utskriften kommer se- 
dan i raderna 830 till 880. Fun- 
dera över varför programmet 
inte sorterar helt rätt. I nästa 
vecka skall jag fortsätta med 
fler förklaringar. Ha en bra vec- 
ka! 
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Förra veckans program 
uppdelat i subrutiner 


Ja, ja, det var ett fel i förra vec- 
kans program. Det känns bra att 
vara så påpassad, så att ni läser 
och testar mina program med- 
detsamma. Felet låg i rad 330. 
Den rätta rad 330 skall se ut så 


här: 
330 ON -VAL(Q$) GOTO 
340,440,540,890 


Det skulle vara 890 på slutet i 
stället för 740. 

Martin M från Malmö påpeka- 
de detta, men undrar också om 
man inte kunde slå ihop de fyra 
sorteringsrutinerna till en? Jo, 
det går bra för om du studerar 
de fyra rutinerna från förra vec- 
kan så ser du att den enda skill- 
naden är att variabeln POKS$(1,!) 
ändrar till POK$(2)1) o s v. 

I stället kan man göra en loop, 
som ger de siffrorna. 

Eftersom jag fick ytterligare 
en fråga från Mats N i Malmö 
om hur man delar upp program- 
met i subrutiner, så har jag skri- 


5 GOSUB 10: GOSUB 30: GOSUB 220 


10 DIM V$(13), KORTS(52), POKS$(4, 13), TEST$(52) 


20 RANDOMIZE (TIMER): RETURN 





INITTERA 


30 RESTORE 

40 FOR I = 1TO4 

50 READ F$(D 

60 NEXT I 

70 FOR I = 1TO 13 

80 READ V$(D 

90 NEXT I 

100 REM SKAPAR KORTLEK 
lO0ON=1 

PR0 FOR I = 1TO0O4 

130 FOR J = 1 TO 13 

140 KORTS(N) = F$(D +" " + V$(J) 
ISON=N+1 

160 NEXT J 

170 NEXT I 

180 REM DATASATSER 


190 DATA SPADER, HJÄRTER, RUTER, KLÖVER 


200 DATA 2,3,4,5,6,7,8,9,10 


210 DATA KNEKT,DAM,KUNG,ESS 


215 RETURN 


KORTLEK 


220 CLS 

230 PRINT : 
240 PRINT : 
250 PRINT : 
260 PRINT : 


PRINT TAB/(10); 
PRINT TAB(10): ” 
PRINT TA B(10); 
PRINT TAB(10Y;: 

270 PRINT : PRINT TAB(10); "3 AVSLUTA" 

280 PRINT : PRINT TAB(10): "VAD ÖNSKAR DU": 
: 290 INPUT QS 

300 IF VAL(QS) < IL OR VAL(Q$) > 3 THEN 240 

310 ON VAL(QS) GOSUB 330, 430. 530, 750 

320 GOSUB 30 : GOTO 220 


"2. EN POKERHUAND" 


MENY 


330 CLS 
340 FOR I = 1TO 4 
350 A = INT(RND + 52) + 1 


360 IF TEST$(A) = "TAGET" THEN 360 


370 TEST$(A) = "TAGET" 


380 PRINT : PRINT TAB(10); KORTS(A) 
390 NEXT I 
400 PRINT : PRINT TAB(10); "TRYCK PÅ ENTER"; 
410 INPUT QQ$ 
420 RETURN 





SPADER 





DATORN KAN NU GÖRA FÖLJANDE SAKER" 
1. FYRA KORT TILL SPELET SPADER" 


"3, FYRA BRIDGEHANDER" 
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vit om förra veckans program 
med uppdelning i subrutiner 
och en komprimerad sorterings- 
rutin. 

Första delen av programmet 
har jag kallat INITIERA. Där 
dimensionerar jag alla variabler 
och sätter igång RANDOMIZE 
med klockan TIMER. Här hop- 
par jag från rad 5 först till rad 
10 för dimensioneringen, sedan 
till subrutinen ortleken och till 
slut till menyn. Nästa 

subrutin — är 
den som gör 
kortleken. Ra- 
den 30 måste 
jag ha för att 
kunna använda 
DATA-satserna 
flera gånger. 
Om «du pro- 
grammerar i 
Amiga-basic, 
QBasic eller 
liknande så sät- 
ter du ett RE- 
TURN i slutet 
på kortleksruti- 
nen. Du kan 
kalla alla ruti- 
nerna med de 
namn som jag 
har gett r ruti- 
nen. 

Nästa rutin är 
menyn och där 


430 CLS 
440 FOR I = 1TO5S 

450 A = INT(RND + 52) + 1 

460 IF TESTS(A) = "TAGET" THEN 360 
470 TEST$S(A) = "TAGET" 


490 NEXT I 


S10 INPUT QQ$ 
520 RETURN 


530 CLS 
540 FOR I = 1TO 4 


S50 FOR J = 1 TO 13 

560 A = INT(RND " 52) + I 

570 IF KORTS(A) =" " THEN 570 
580 POKS(I, J; = KORTS(A) 


590 KORTS(A) =" " 
600 NEXT J 
610 NEXT I 
620 FOR K= 1TO4 


630 FOR 1 = I TO 12 
640 FOR J = I + 1 TO 13 
650 IF POKS(K. D) < POKS(K, J) THEN 680 


du välja vilken subrutin du skall 
fortsätta med. 


Jag tar subrutinerna efter 
hand. Först Spader som ger de 
fyra korten till spelet Spader. 
Lägg märke till att varje subru- 
tin måste sluta med ett RE- 
TURN. 


Nästa är POKER, som nästan 
är identisk med Spader. 

Till slut kommer BRIDGE 
med den komprimerade sorte- 
ringsrutinen. 


Rutinen består av tre så kalla- 
de nestade loopar. Detta kan du 
se i raderna 620 till 670. Den 
första loopen i rad 620 ger vär- 
dena till de fyra olika händerna. 

Till slut kommer en rutin på 
en rad nämligen SLUT. Hit hop- 
par programmet när du vill slu- 
ta. 


Förra veckan bad jag dig att 
fundera på varför sorteringen 
inte blev perfekt utan att den 
sorterar de klädda korten fel i 
ordningen ESS, DAM, KNEKT, 
KUNG. Anledningen är uppen- 
bar då programmet alltid sor- 
terar i bokstavsvärde. 


Kan man klara sig ur detta? 
En del är perfektionister och vill 
ha perfekta program. 

Problemet går att lösa. De, 
som har bra minne kommer 
kanske ihåg de problem, som 
uppkom med ÅÄÖ i sortering 
och hur vi löste detta. 


Enklast gör man det med en 
liten subrutin, som jag kommer 
att visa nästa vecka. I denna 
subrutin kommer jag att använ- 
da funktionerna RIGHT$ och 
MIDS$. Ta och titta över sträng- 
hanteringsfunktionerna till näs- 
ta vecka. 


480 PRINT : PRINT TAB(10); KORTS(A) 


500 PRINT : PRINT TAB(10); "TRYCK PÅ ENTER"; 





POKER 


660 X$ = POKS(K, DD: POKS(K. I) = POKS(K, JD: POKS(K.J) = XS 


680 FOR I = 1TO 4 


710 NEXT J 
720 PRINT : PRINT 
730 NEXT I 


750 INPUT QQS 
760 RETURN 


690 FOR J = 1 TO 13 
700 PRINT POKS(L JD; o": 





670 NEXT J: NEXT I: NEXT K 


740 PRINT :PRINT TAB(10); "TRYCK PÅ ENTER": 


BRIDGE 


770 END 
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Sa kontrollerar du 
ditt personnummer 


Stränghantering fortsät- 
ter den här veckan och vi 
visar hur man kan an- 
vända dessa funktioner 
när man testar om ett 
personnummer har rätt 
kontrollsiffra. 


Ett personnummer består av 
11 tecken — tio siffror och ett 
bindestreck. Den tionde siffran 
är en kontrollsiffra, som kon- 
trollerar att de nio andra siffror- 
na är riktiga. Om kontrollsiffran 
är fel så betyder det att någon 
av de tio siffrorna är felaktiga 
eller har blivit fel inslagna. 

I dag har vi också ”person- 
nummer” på matvaror. Den van- 
ligaste är EAN-koden, EAN- 
= European Article Numbering, 
en streckkod, som vi hittar på 
nästan alla livsmedel. EAN-ko- 
den består av 13 siffror där den 
sista också är en kontrollsiffra. 

De koder som används på va- 
ror avläses av en ljuspenna eller 
en litens canner. Koderna inne- 
håller bland annat artikelnum- 
ret på varan. Avläsaren är kopp- 
lad till en dator, som kontrolle- 
rar att koden stämde med hjälp 
av kontrollsiffran. Sedan letar 
datorn upp vad varan kostar och 
ger denna information tillbaka 
till kassan. Priset finns alltså in- 
te i etiketten utan i datorn. 


Kolla alltid! 


Det är den vanligaste missupp- 
fattningen att priset finns i eti- 
ketten. Att priset finns i datorn 
gör att man alltid måste vara 
noga med att kontrollera att det 
blir rätt pris man betalar. Det 
pris, Som man har programme- 
rat in i datorn stämmer inte all- 
tid överens med vad som pris- 
märkningen anger. 

Jag har ofta kommit på hand- 
lare, som har haft extrapriser på 
varor och när man kommer till 
kassan så ger datorn det ordina- 
rie priset. Den enda ursäkten 
man får är att man inte hunnit, 
eller glömt, att programmera 
om datorn — så kolla vad ni be- 
talar. 

Nu över till kontrollsiffran. En 
kontrollsiffra får man fram ge- 
nom att multiplicera alla tal i 
udda position med 2 och alla i 
jämn position med 1. Jag skall 
visa med ett exempel se figur. 

Samma system gäller om det 
är fler siffror. Nu gäller det att 
sätta in detta i ett program. 

Jag har gjort ett program, som 
är uppdelat på sex subrutiner. 

1. Dimensionering av variabler. 
2. Läsa in månader. 

3. Inmatning av personnummer. 
4. Uträkning av kontrollsiffra. 

5. Uträkning av månad. 

6. Utskrift av resultat. 


Månadernas namn 


I dimensioneringen finns bara 
en variabel nämligen M$(12) för 
månadernas namn. Så fort en 
variabel skall vara mer än 10, så 
måste den dimensioneras. 

I subrutinen, som börjar på 

rad 200 läser programmet in de 
tolv månadernas namn och läg- 
ger det variablerna M$(1) till 
M$(12). 
Nästa subrutin tar hand om in- 
matning av personnummer och 
kontrollerar i en IF THEN-sats 
att det inte finns för många eller 
för lite tecken. Subrutinen som 
börjar på rad 10000 kontrollerar 
om det är för lite eller för myc- 
ket tecken. 

Subrutinen, som börjar på rad 
4000, den där det egentligen 
händer. Jag skall ta denna rutin 
mera i detalj. 

I rad 4010 tar programmet bort 
kontrollsiffran och bindestrec- 
ket med hjälp av funktionen 
MID$(). Du får en utskrift på 
skärmen i rad 4030 så att du kan 
kontrollera att datorn gjort rätt. 


Christian 
Lindeberg 





I raderna 4050 till 4120 finns en 
loop som räknar ut siffersum- 
man i personnumret. 

I rad 4060 får variabeln N ett 
numeriskt värde när funktionen 
MID$() plockar ut tecken för 
tecken i strängen NP$. Funktio- 
nen VAL ger tecknet ett nume- 
riskt värde, eller kort sagt ser 
till att man kan räkna med vär- 
det i datorn. 


Sista kontrollen 


Rad 4070 kontrollera positionen 
på tecknet, om det är i jämn po- 
sition skall det multipliceras 
med 1 annars med 2. 





HEMDATORER 


Rad 4100 ser kanske lite mys- 
tisk ut, men titta i figuren så ser 
du att 2"7=14. vi skall inte ha 
talet 14 utan summan av siffror- 
na som är 1+4=5. Talet 5 får du 
också fram om du tar talet 14 
och minskar med 9. 

Den sista viktiga kontrollen är 
i rad 4160. för om siffersumman 
i rad 4110 har blivit ett tiotal, så 
blir resultatet av rad 4150 talet 
10 och detta kan inte vara en 
kontrollsiffra. Därför måste vi 
göra om 10 till siffran 0, som då 
blir kontrollsiffra. 

Jag fortsätter med resten näs- 
ta gång då jag skall lägga till en 
rutin som talar om vilket kön 
personen har. 

Ha en bra veckal!! 


701216-3999 personnummer 


701216-399 
"212121 212 
1402226 6918 
Summan=1+4+0+2+2+2+6+6+9+1+8=41 


Ta bort tiotalet då återstår 1. 





Nästa steg blir 10 - 1 = 9, som är kontrollsiffran 


10 REM PROGRAMM FÖR ATT BERÄKNA KONTROLLSIFFRA UR PERSONNUMMER 


20 REM AV CHRISTIAN LINDEBERG 
30 GOSUB 1000: REM DIMENSIONERING 
40 GOSUB 2000: REM LÄSA IN MÅNADER 


50 GOSUB 3000: REM INMATNING AV PERSONNUMMER 
60 GOSUB 4000: REM UTRÄKNING AV KONTROLLSIFFRA 


70 GOSUB 5000: REM UTRÄKNING AV MÅNAD 


80 GOSUB 6000: REM UTSKRIFT 
100 CLEAR : GOTO 10 

1000 REM DIMENSIONERING 
1010 DIM M$(12) 

1020 RETURN 

2000 REM LÄSA IN MÅNADER 
2010 FOR I = 1 TO 12 

2020 READ M$S(I) 

2030 NEXT I 


2040 DATA JANUARI, FEBRUARI MARS,APRIL MAJJUNIJULI 
2050 DATA AUGUSTI SEPTEMBER, OKTOBER, NOVEMBER, DECEMBER 


2060 RETURN 


3000 REM INMATNING AV PERSONNUMMER 


3010 CLS 


3020 PRINT : PRINT TAB(10); "SLÅ IN ETT PERSONNUMMER" 
3030 PRINT : PRINT TA B(10); "MED ALLA SIFFROR OCH BINDESTRECK" 
3040 PRINT : PRINT TAB(10); "I FORMMEN 111111-1111" 


3050 PRINT : PRINT TA B(10); : INPUT PN$ 


3060 IF LEN(PN$) < 11 OR LEN(PN$) > 11 THEN GOSUB 10000: GOTO 3000 


3070 RETURN 


4000 REM BERÄKNING AV KONTROLLSIFFRA 


4010 NP$ = MIDS(PNS, 1, 6) + MIDS(PNS$, 8, 3) 


4020 PRINT : PRINT TAB(10); "BORTTAGNING AV BINDESTRECK" 
4030 PRINT : PRINT TAB(10); "OCH KONTROLLSIFFRA "; NP$ 
4040 PRINT : PRINT TAB(10); "TRYCK PÅ ENTER"; : INPUT QQ$ 


4050 FOR I = 1 TO 9 
4060 N = VAL(MIDS(NPS, I, 1)) 


4070 IF 1/2 >= INT(I / 2) THEN F = 1: GOTO 4090 


4080 F =2 

4090 T=F"N 

4100 IF T > 9 THEN T = T-9 
4110S=S+T 

4120 NEXT I 

4130 B$ = STR$S(S) 

4140 K$ = MIDS$(BS$, 3, 1) 

4150 KONTROLL = 10 - VAL(K$) 


4160 IF KONTROLL = 10 THEN KONTROLL = 0 


4170 RETURN 
5000 REM UTRÄKNING AV MÅNAD 
5010 UT$ = MIDS(PNS, 3, 2) 

5020 MAN = VAL(UT$) 

5030 RETURN 

6000 REM UTSKRIFT 

6010 CLS 


6020 PRINT : PRINT TAB(10); "DET INSLAGNA PERSONNUMRET = "; PN$ 

6030 PRINT : PRINT TAB(10); "DEN UTRÄKNADE KONTROLLSIFFRAN ="; KONTROLL 
6040 IF VAL(MIDS$(PNS, 11, 1)) = KONTROLL THEN 6060 

6050 PRINT : PRINT TAB(10); "”KONTROLLSIFFRORNA STÄMMER INTE": GOTO 6070 
6060 PRINT : PRINT TAB(10); "”KONTROLLSIFFRORNA ÄR LIKA" 

6079 PRINT : PRINT TA B(10); PERSONEN ÄR FÖDD" 

60860 PRINT : PRINT TAB(10); "DEN "; MIDS(PNS$, 5, 2); " "; MS(MAN); " 19"; MIDS(PN$, 1, 2) 


6090 PRINT : PRINT TAB(10); "TRYCK PÅ ENTER ”; 


6100 INPUT QQS$ 


6110 PRINT : PRINT TAB(10); "NY BERÄKNING (J/N)"; 


6120 INPUT QOS 

6130 IF QQ$ = "J" OR QOS = "j" THEN 6150 
6140 IF QQ$ = "N" OR QQ$ = "n" THEN END 
6150 RETURN 

10000 CLS 

10010 IF LEN(PN$) < 11 THEN 10100 

10020 IF LEN(PNS$) > 11 THEN 10200 


10100 PRINT : PRINT TAB(10); "DU HAR MATAT IN FÖR LITE TECKEN” 
10110 PRINT : PRINT TAB(10); "GLÖM INTE BINDESTRECK MELLAN" 
10120 PRINT : PRINT TA B(10); "SJÄTTE OCH SJUNDE SIFFRAN” 


10130 PRINT : PRINT TAB(10); "TRYCK PÅ ENTER"; 


10140 INPUT QQ$ 
10150 RETURN 


10200 PRINT : PRINT TAB(10); "DU HAR SLAGIT IN FÖR MÅNGA TECKEN” 
10210 PRINT : PRINT TAB(10); "DU FÅR INTE HA NÅGRA MELLANSLAG" 


10220 PRINT : PRINT TAB(10); "TRYCK PÅ ENTER"; 


10230 INPUT QOQO$ 
10240 RETURN 
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Den här veckan skall jag fort- 
sätta med personnummer och 
programmet, som räknar ut i 
vilket län du är född i. Person- 
numret består av 11 tecken 1 
bindestreck och 10 siffror. De 
sex första siffrorna är födelse- 
dagen och de fyra sista har flera 
betydelser. Den sista siffran är 
kontrollsiffran, som vi har testat 
i de tidigare programmen. Siffra 
nummer nio talar om det är 
man eller kvinna. De tre siffror- 
na efter bindestrecket talar om 
var du är född. 

Här följer en uppställning för 
de olika länen: = 
STOCKHOLMS LAN 001-139 
UPPSALA LAN 140-159 


SÖDERMANLANDS LÄN 
160-189 
ÖSTERGÖTLANDS LÄN 
190-239 


JÖNKÖPINGS LÄN 240-269 
KRONOBERGS LÄN 270-289 
KALMAR LÄN 290-319 
GOTLANDS LÄN 320-339 
BLEKINGE LÄN 330-349 
KRISTIANSTADS LÄN 350-389 
MALMÖHUS LÄN 390-459 
HALLANDS LÄN 460-479 
GÖTEBORGS OCH BOHUS 
LÄN 480-549 = 

ÄLVSBORGS LÄN 550-589 
SKARABORGS LÄN 590-619 
VÄRMLANDS LÄN 620-659 
ÖREBRO LÄN 660-689 
VÄSTMANLANDS LÄN 690-709 
KOPPARBERGS LÄN 710-749 
GÄVLEBORGS LÄN 750-779 


VÄSTERNORRLANDS LÄN 
780-819 i 
JÄMTLANDS LÄN 820-849 
VÄSTERBOTTENS LÄN 
850-889 


NORRBOTTENS LÄN 890-929 
RIKSSKATTEVERKET 930-999 

Om du tittar på de olika ser du 
siffrorna 930 till 999 tillhör skat- 
teverket och delas ut till länen 
när deras siffror har tagit slut. 
Detta sker när det har fötts fler 
flickor eller pojkar en dag så att 
alla jämna eller udda kombina- 
tioner tagit slut. 

Du ser att programmet består 
av många DATA-satser. I varje 
DATA-sats finns information 
om län och om start- och slut- 
siffra. Jag har delat in program- 
met i 5 stycken subrutiner. Den 
första dimensionerar variabler- 
na, den andra läser in alla länen 
och deras olika värde. 

Den tredje subrutinen är en 
inmatningsrutin för person- 
numret och den fjärde räknar ut 
var personen är född. Uträkning 
av födelselän sker i rad 3050 där 
siffrorna sju, åtta och nio över- 
förs till ett tal genom funktionen 
VAL. På samma gång testas i 
vilket intervall talet ligger, när 
programmet har hittat rätt in- 
tervall så får variabeln B$ nam- 
net på det län där intervallet 
fanns. 

Den sista rutinen är en fråge- 
rutin om du skall sluta eller 
fortsätta. Glöm inte att alltid 
testa både stora och små bok- 
stäver. 

I raderna 3050 och 5030 har jag 
använt mig av logiska operato- 
rer, nämligen AND och OR. 

I rad 3050 testar programmet 
om de tre siffrorna ligger inom 
ett visst intervall. Talet måste 
uppfylla kravet att vara större 
än ett visst tal och mindre än ett 
annat tal. Dessa tal kommer 
ifrån :DATA-satserna =<+[efter 
namnet på de olika länen. Lägg 
märke till att i jämförelsen ock- 
så finns två jämförelseoperato- 
rer i första delen större än och 
lika med och efter AND mindre 
än och lika med. 








Rad 5030 testar bara om det är PRINT 2 AND 3 eller PRINT 2 


stora N eller lilla n. OR 3 eller PRINT 2 NOT 3? 
I nästa artikel skall jag tala Varför? 
mer om de logiska operatorerna Gymnastisera hjärncellerna 


till nästa vecka. 
Ha en bra vecka! 


AND, OR och NOT. 
Vad händer om man skriver 


10 GOSUB 1000 

20 GOSUB 2000 

30 GOSUB 3000 

40 GOSUB 4000 

50 GOSUB 5000 

60 CLEAR 

70 GOTO 10 

1000 CLS 

1010 DIM F$(25),START(25),SLUT(25) 

1020 RETURN 

2000 DATA STOCKHOLMS LÄN ,001,139 

2010 DATA UPPSALA LÄN,140,159 

2020 DATA SÖDERMANLANDS LÄN, 160,189 
2030 DATA ÖSTERGÖTLANDS LÄN,190,239 
2040 DATA JÖNKÖPINGS LÄN ,240,269 

2050 DATA KRONOBERGS LÄN,270,289 

2060 DATA KALMAR LÄN,290,319 

2070 DATA GOTLANDS LÄN,320,339 

2080 DATA BLEKINGE LÄN,330,349 

2090 DATA KRISTIANSTADS LÄN ,350,389 
2100 DATA MALMÖHUS LÄN ,390,459 

2110 DATA HALLANDS LÄN ,460,479 

2120 DATA GÖTEBORGS OCH BOHUS LÄN ,480,549 
2130 DATA ÄLVSBORGS LÄN,550,589 

2140 DATA SKARABORGS LÄN,590,619 

2150 DATA VÄRMLANDS LÄN,620,659 

2160 DATA ÖREBRO LÄN ,660,689 

2170 DATA VÄSTMANLANDS LÄN,690,709 
2180 DATA KOPPARBERGS LÄN,710,749 
2190 DATA GÄVLEBORGS LÄN ,750,779 

2200 DATA VÄSTERNORRLANDS LÄN,780,819 
2210 DATA JÄMTLANDS LÄN ,820,849 

2220 DATA VÄSTERBOTTENS LÄN ,850,889 
2230 DATA NORRBOTTENS LÄN,890,929 
2240 DATA RIKSSKATTEVERKET,930,999 
2250 FOR I=1 TO 25 

2260 READ F$(D,START(ID),SLUT(ID 

2270 NEXT I 

2280 RETURN 

3000 PRINT:PRINT TA B(10);"SLÅ IN DITT PERSONNUMMER" 
3010 PRINT:PRINT TA B(10);'MED BINDESTRECK"; 
3020 INPUT P$ 

3030 A$=MID$(P$,8,3) 

3040 FOR I=1 TO 25 


3050 IF VAL(A$)>=START(I) AND VAL(A$)<=SLUT(I) THEN 
B$=F$(I) 


3060 NEXT I 
3070 RETURN 
4000 PRINT:PRINT TAB(10);"DU ÄR FÖDD I ''; 
4010 PRINT B$ 
4020 RETURN 


5000 PRINT:PRINT TA B(10);"VILL DU TESTA FLER 
PERSONNUMMER"; 


5010 PRINT " (J/N)"; 

5020 INPUT Q$ 

5030 IF Q$="N" OR Q$="n" THEN END 
5040 RETURN 
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Registerprogram 


Den här veckan blir det 
en kort artikel och ett 
långt program. Anled- 
ningen är alla de frågor, 
som jag fått om register- 
program. Frågorna har 
varit om register för fri- 
märke, skivor, namn, vi- 
deofilmer 0 s v. 






Christian 
Lindeberg 





HEMDATORER 





Jag har gjort ett allmänt pro- 
gram för personuppgifter, som 
man lätt kan ändra till andra 
behov. Antalet uppgifter i pro- 
grammet är sex och fyra av dem 
är sökbara. En sorteringsrutin 
sorterar alla personuppgifter ef- 
ter efternamnet, som ligger i va- 
riabeln E$(N). Om du använder 
registerprogrammet till andra 
saker och vill göra det enkelt för 
dig själv så lägg det du vill sor- 
tera på i variabeln E$(N). 

Det betyder att du måste lägga 
det först i DATA-satserna. 


I rad 10 måste du tilldela va- 
riabeln N det antal DATA-sat- 
ser som börjar i rad 1000. Jag 
har 12 DATA-satser ger därför 
N värdet 12. Ordningen på va- 
riablerna är E$(N), 
F$(N), AS$S(N),PS(N),PAS(N) och 
T$(N).F$S(N) och PAS(N) kan du 
inte söka på, om du vill söka på 
F$(N) eller PAS(N) kan du göra 
rutin, som liknar en av de fyra 
andra i raderna 190,260,330 och 
400. 


Programmet startar med att 
det läser in alla uppgifter i DA- 
TA-satserna och placerar dem i 
sina variabler. Därefter sker en 
sortering, så att alla uppgifter 
kommer att ligga sorterade ef- 
ter innehållet i E$(N). När du 
lägger till uppgifter så fortsätter 
du med flera DATA-satser efter 
rad 1110. Lägger du in många 
uppgifter, så att raderna innan 
rad 2000 inte räcker så kan du 
fortsätta på rad 3000. Men glöm 
inte att ändra N i rad 10, för an- 
nars kommer datorn inte att 
hitta de nya namnen. Rad 10 
styr också dimensioneringen av 
de olika variablerna i rad 30. 


I slutet av programmet har jag 
lagt en utskriftsrutin för skriva- 
re. Den visar principerna. Om 
du har en VIC-dator så ta bort 
REM i rad 2000 och 2060. I ra- 
derna 2030 och 2040 tar du bort 
L i LPRINT, sedan kan du köra 
programmet. Har du en PC, så 
kan du köra utskriften direkt. 
Om du vill ha det snyggare så 
får du själv leka med utskriften. 
Du kan använda TAB-funktio- 
nen eller SPC-funktionen till ut- 
skrifter. Har du en 80-teckens 
skrivare så kan du skriva ut alla 
uppgifter på en rad. Jag skall vi- 
sa med ett exempel. Byt ut 2030 
och 2040 mot följande: 

2030 LPRINT E$L;- 
""F$(I);SPC(3);A$(1);SPC(3);PS(- 
I);”;PA$;SPC(3);T$(1) 

Vill du har det i snygga ko- 
lumner så använd TAB-funktio- 
nen i stället. 

Sorteringsfunktionen är av ty- 
pen QUICK-sort. Om du vill sor- 
tera på någon annan variabel så 
måste du ändra i raderna 590, 
600 och 620, det är E$() du skall 
ändra till den variabel du vill 
sortera på. Raderna 650 till 690 
flyttar variablerna så att alla 
uppgifter hänger tillsammans. 

Sökrutinerna och utskriften 
av uppgifterna på skärmen är 
upplagda så att om det finns fler 
personer med samma efter- 
namn, så kommer de att visas 


efter varandra. Detta gäller alla 
sökrutinerna. Det är ganska en- 
kelt att lägga till ytterligare en 
utskriftsrutin till skrivare om du 
vill kunna skriva ut de uppgifter 
du söker på. 

Om du vill skriva ut på skriva- 
re alla de efternamn du söker så 


lägg till följande: 
215 oo PRINT:PRINT 
TAB(10);'SKARM ELLER 
PRINTER (S/P)Y'”; 


216 INPUT SKRIVS 
230 IF B$= E$(1) AND 
SKRIV$="S" THEN GOSUB 
830 
235 IF B$= E$(1) AND 
SKRIV$="P" THEN GOSUB 
3000 
3000 LPRINT E$(1);” 
”;.F$(I);SPC(3);A$(1);SPC(3);P$S(I- 
);” ”;PAS(I);SPC(3);T$(1) 
3010 RETURN 

Ha en bra vecka och lycka till!! 


10 N = 12: REM ANTAL NAMN 

20 PRINT : PRINT TAB(10); VAR GOD VÄNTA" 

30 DIM E$(N), FS(N), A$S(N), PS(N), PAS(N), T$(N) 

40 GOSUB 920 

50 GOSUB 560 

60 CLS 

70 PRINT : PRINT TAB(10); " REGISTERMENY" 

80 PRINT : PRINT TAB(10); "1. SÖKNING PÅ NAMN" 

90 PRINT : PRINT TAB(10); "2. SÖKNING PÅ ADRESS" 

100 PRINT : PRINT TA B(10); "3. SÖKNING PÅ POSTNUMMER" 

110 PRINT : PRINT TAB(10); "4. SÖKNING PÅ TELEFONNUMMER" 

120 PRINT : PRINT TAB(10); "5. UTSKRIFT PÅ SKÄRM" 

130 PRINT : PRINT TAB(10); "6. UTSKRIFT PÅ PRINTER" 

140 PRINT : PRINT TAB(10); "7. AVSLUTA" 

150 PRINT : PRINT TAB(10); : INPUT "VAD VILL DU SÖKA PÅ (1,2, 3, 4,5, 6 ELLER 7)"; A 

160 IF A < 1OR A > 7 THEN 60 

170 ON A GOTO 190, 260, 330, 400, 470, 2000, 550 

180 GOTO 60 

190 CLS 

200 PRINT : PRINT TAB(10); "VILKET NAMN? SKRIV EFTERNAMN ':; 
210 INPUT B$ 

220 FOR I = 1 TON 

230 IF B$ = E$(1) THEN GOSUB 830 

240 NEXT I 

250 GOTO 60 

260 CLS 

270 PRINT : PRINT TAB(10); "VILKEN ADRESS SÖKER DU"; 

280 INPUT B$ 

290 FOR I = 1 TON 

300 IF B$ = A$(1) THEN GOSUB 830 

310 NEXT I 

320 GOTO 60 

330 CLS 

340 PRINT : PRINT TA B(10); "VILKET POSTNUMMER SÖKER DU"; 
350 INPUT B$ 

360 FOR I = 1 TON 

370 IF B$ = P$(1) THEN GOSUB 830 

380 NEXT I 
390 GOTO 60 
400 CLS 
410 PRINT : PRINT TAB(10); "VILKET TELEFONNUMMER SÖKER DU"; 
420 INPUT B$ 
430 FOR I = 1 TON 
440 IF B$ = T$(I) THEN GOSUB 830 
450 NEXT I 
460 GOTO 60 
470 CLS 
480 FOR I = 1 TON 


490 PRINT : PRINT TAB(10); E$(1); " ”; FS(D,A$(D) 
500 PRINT TAB(10); P$(D; " "; PA$(D, T$(ID 
510 IF I / 6 = INT( / 6) THEN PRINT : PRINT TAB(10); "TRYCK PÅ RETURN": INPUT QQ$ 
520 NEXT I 
530 PRINT : PRINT TA B(10); "TRYCK PÅ RETURN": INPUT QQ$ 
540 GOTO 60 
550 END 
560 F = 1: L(1) = 1: R(D) =N 
570 L = L(F): R = R(F): F= F-1 
580 I =L:J=R 
590 C$ = E$(L) 
600 IF E$(I) >= C$ THEN 620 
610 I = I + 1: GOTO 600 
620 IF E$(J) <= C$ THEN 640 
630 J = J - 1: GOTO 620 
640 IF I > ] THEN 710 
650 SLASK$ = E$(I): E$(I) = E$(J): E$J) = SLASK$ 
655 SLASK$ = F$(I): F$(1I) = F$(J): F$) = SLASK$ 
660 SLASK$ = A$(ID: A$(I) = A$(J): A$J) = SLASK$ 
670 SLASK$ = P$(D: P$(I) = P$(J): P5) = SLASK$ 
680 SLASK$ = PA$(ID: PA$(I) = PA$J): PAS) = SLASK$ 
690 SLASK$ = T$(D: T$(I) = T$(J): TJ) = SLASK$ 
2001=1+1:J=J-1 
710 IF I <= J THEN 600 
720 IFJ-L >= R- 1 THEN 770 
730 IF I >= R THEN 750 
740 F = F + 1: L(F) = I: R(F) =R 
750 R =J 
760 GOTO 800 
770 IF L >= J] THEN 790 
780 F= F+1: L(F) = L: R(F) = J 
790L = I 
800 IF L < R THEN 580 
810 IF F > O THEN 570 
820 RETURN 
830 CLS 
840 PRINT : PRINT : PRINT : PRINT TAB(10);" NAMN = :"; E$(D;" "; F$(ID 
850 PRINT : PRINT : PRINT TAB(10);" ADRESS :"; A$(ID 
860 PRINT : PRINT : PRINT TAB(10); " POSTNUMMER : '; P$(I) 
870 PRINT : PRINT : PRINT TA B(10); " POSTADRESS : "; PA$(I) 
880 PRINT : PRINT : PRINT TAB(10);" TELEFON :"; T$(I) 
890 PRINT : PRINT : PRINT : PRINT TA B(10); ” TRYCK PÅ RETURN"; 
900 INPUT QQ$ 
910 RETURN 
920 FOR I = 1 TON 
930 READ E$(D, F$(D, A$(D, P$(I), PA$(D, T$(I) 
940 NEXT I 
950 RETURN 
1000 DATA DISKSSON JUMBO, TURVÄGEN 6,666 66,KRETSBY,11 22 33 
1010 DATA DATASSON,FLOPPY,DISKETTVÄGEN 2,999 99, CHIPHÖGEN, 66 99 33 
1020 DATA DISKSSON,DUMBO,TURVÄGEN 6,666 66, KRETSBY,11 22 33 
1030 DATA DATASSON NIKLAS,DISKETTVÄGEN 2,999 99, CHIPHÖGEN, 66 99 33 
1040 DATA DISKSSON,TURE,TURVÄGEN 6,666 66,KRETSBY,11 22 33 
1050 DATA DATASSON,SVEN,DISKETTVÄGEN 2,999 99, CHIPHÖGEN, 66 99 33 
1060 DATA DISKSSON,JULLE,/TURVÄGEN 6,666 66,KRETSBY,11 22 33 
1070 DATA DATASSON, INGRID,DISKETTVÄGEN 2,999 99, CHIPHÖGEN, 66 99 33 
1080 DATA DISKSSON, ANNA, TURVÄGEN 6,666 66, KRETSBY,11 22 33 
1090 DATA DATASSONSIV,DISKETTVÄGEN 2,999 99, CHIPHÖGEN, 66 99 33 
1100 DATA DISKSSON,ELSA,TURVÄGEN 6,666 66,KRETSBY,11 22.33 
1110 DATA DATASSON, ELISABET,DISKETTVÄGEN 2,999 99, CHIPHÖGEN, 66 99 33 
2000 CLS 
2010 REM OPEN 4,4:CMD4 
2020 FOR 1=1TON 
2030 LPRINT E$(1D; " ”; F$(D, A$(D, 
2040 LPRINT P$(D; ” "; PAS(D, T$(1) 
2050 NEXT I 
2060 REM CLOSE 4 
2070 GOTO 60 
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Lär er använda 
datorn produktivt 


Det här var en svår arti- 
kel att skriva. Dels är det 
den sista och dels låste 
sig min dator tre gånger, 
så det här är fjärde gång- 
en jag skriver om den. Ef- 
tersom jag skriver direkt 
i datorn utan manus så 
vet jag inte riktigt vad jag 
skrev i mitt första försök. 


Antagligent tycker min dator 
att det också är lite svårt att inte 
få leverera dessa artiklar i 
framtiden. Arbetet har nämli- 
gen beslutat att tills vidare läg- 
ga avdelningen Hemdatorer på 
is. 

Vid det här tillfället så blickar 
man gärna tillbaka på alla de 
artiklar, som jag skrivit. Den 
första artikeln var den 8 oktober 
1983, då jag skulle fylla 13 år till 
julen. Alltså lite mer än 8 år se- 
dan. Då var den första av IBM's 
PS-datorer två år gammal, 
Commodores VIC-20 ungefär li- 
ka gammal och man hade lanse- 
rat VIC-64, som fortfarande till- 
hör världens mest sålda dator- 
modell. 

Av alla dessa finns bara VIC- 
64 kvar att köpa, vilket innebär 
att modellen är unik inom data- 
branschen. 


Miljoner färger 

PC-datorn i dag liknar inte 
mycket av de gamla datorerna, 
som hade en diskettstation på 
360 kB och ett internminne på 
64kB. I dag har PC-datorerna en 
hårddisk på mellan 40 och 1000 
MB och internminne mellan 2 
till 16 MB. Då kunde man an- 
vända 4 färger av 8, i dag kan 
man använda upp till 16,8 miljo- 
ner färger. 


10 CLS 


Christian 
Lindeberg 





HEMDATORER 





Tala om utveckling, VIC-64:an 
står sig fortfarande på hemda- 
tormarknaden. Den första jag 
köpte 1983 kostade 6.000 kr, i 
dag kostar samma dator cirka 
1.200 kr, vilket är ett bevis på 
den snabba utvecklingen av 
elektroniska komponenter. När 
man 1983 lagade en VIC-64, så 
kontrollerade man vilken krets 
som var felaktig. Tog bort kom- 
ponenten och lödde dit en ny. I 
dag tar man bort hela kortet och 
sätter i ett nytt. 

Då skrev jag om VIC-20, VIC- 
64 och ZX-81, alla förträffliga 
datorer. Den sistnämnda för- 
svann på grund av ekonomiska 
orsaker hos den engelske till- 
verkaren Sinclair. 

Det första program jag hade i 
tidningen var ett program för 
att kontrollera personnummer 
och jag tänkte avsluta min arti- 
kelserie med samma program, 
men från 1992. 


Vilken datakraft! 


Men innan jag slutar så vill jag 
komma med en del funderingar. 

Vi befinner oss i ett svårt eko- 
nomiskt läge, som kommer att 
vara under 1992 och 1993. Vad 
bör man göra i dåliga tider? Jo, 
slå vakt om sina resurser för att 


man skall kunna utnyttja dem 
när tiderna blir bättre. Jag skall 
försöka förklara med lite bättre 
svenska. Om vi tänker efter hur 
många det finns i det här landet 
som har datorer, Amiga, Atari, 
PC-datorer, VIC-64 och alla 
andra typer. 

Tänk efter vilken stor data- 
kraft vi har i våra hem. 

Varför inte använda denna da- 
takraft tillsammans med sina 
hjärnceller för att göra saker, 
som ni kan använda er av i 
framtiden för att tjäna pengar 
till exempel. Lär er att använda 
er dator produktivt. Det värsta 
jag vet är dessa spel av typen 
Nintendo och liknande, som inte 
ger något annat än förslappning 
och ingen möjlighet till ett 
självständigt tänkande. 


Tack allihop! 


Jag vill sluta med tack till alla 
de läsare, som jag har haft un- 
der dessa drygt 8 år. 

Jag skulle kunna räkna upp 
många, men det är svårt att inte 
glömma någon. Den mest in- 
tressanta utvecklingen är att 
under de första åren var det 
uteslutande ungdomar, som 
skrev till mig. De sista åren har 
det varit övervägande äldre och 
pensionärer. Jag har många 
brev från pensionärer, som har 
hittat ett nytt mål efter sin pen- 
sionering. 

Till er alla. 

Ha ett fortsatt gott liv och ut- 
nyttja er datakraft. 

Tack för mig! 


PS Ni som fortfarande har frå- 
gor om hemdatorer kan skicka 
dem (med frankerat svarsku- 
vert) till Hemdatorer, Box 6, 
236 21 Höllviken. DS 


20 PRINT "SLÅ IN DITT PERSONNUMMER I FORMEN XXXXXX-XXXX"'; 


30 INPUT P$ 

40 A$=MID$(P$,1,6) 
50 B$=MI1ID$(P$,8,3) 
60 C$=A$+B$ 


70 PRINT "PERSONNUMMER EFTER BORTTAGNING AV MINUSTECKEN '";C$ 


80 FOR K=1 TO 9 
90 D$=MIDS$(C$,K,1) 


100 PRINT "SIFFRORNA EN OCH EN I P-NUMMER '";D$ 


110 IF K/2=INT(K/2) THEN M=M+VAL(D$):GOTO 150 


120 R=2"VAL(D$) 

130 IF R>9 THEN R=R-9 
140 M=M+R 

150 NEXT K 


160 PRINT "SUMMAN=";M 


170 E$=STR$(M) 

180 S=VAL(MID$(E$,3,1)) 
190 S=10-S 

200 IF S=10 THEN S=0 


210 T=VAL(MIDS$(P$,/11,1)) 


220 IF S=T THEN PRINT "PERSONNUMMER OK'":END 
230 PRINT "PERONNUMMER INTE KORREKT" 


2 OKTOBER 1993 





Hela hans liv är datorer 


Arbetets dataexpert Christian Lindeberg har blivit veteran på unga dar - nu firar han tioårsjubileum i i spalterna 


"Underbarnet" var det en 
och en annan som kallade 
Christian Lindeberg, när han 
den sjätte oktober för precis 
tio år sedan började skriva 
dataspalten i Arbetet. Nu 
har han hunnit bli tjugotvå 
år, men datorer är fortfaran- 
de en mycket stor del av 
hans liv. Arbetet träffade 
Christian för att höra hur han 
har upplevt dessa tio synner- 
ligen händelserika år inom 
datans värld, och vad han 
väntar sig av de tio nästa. 


AV ÅSA TRULSSON 


När Christian Lindeberg bör- 
jade att skriva dataspalten 1983 
var han tolv år gammal - eller 
ska man kanske hellre säga ung. 
Yngst i Sverige betraktades han 
nästan som en sensation. Idag 
har hans rekord fått konkurrens 
av andra unga ”datasnillen”, 
men Christian poängterar att 
det ändå finns en viss skillnad. I 
dagens datoriserade samhälle 
växer ungarna upp med datorer 
runt omkring sig, medan datorn 
ännu låg i sin vagga i början av 
åttiotalet. Trots det blev Christi- 
an tidigt bekant med datatekni- 
ken. Hans far arbetade med da- 
torer, och båda hans bröder valde 
att slå sig in på samma bana. På 
det viset blev datorer en naturlig 
del av livet hemma hos familjen 
Lindeberg. 

Att Christian skulle arbeta 
med datorer rådde det väl knap- 





Christian Lindeberg som ungt 
datageni ... 


past någon tvekan om. Han fun- 
derade egentligen aldrig över 
vad han skulle göra; det bara 
blev så. Sedan några år jobbar 
han i en databutik, och datorer- 
na, ja, dem har han inga planer 
på att överge. 


ENORM UTVECKLING 
Att påstå att datorerna har ut- 
vecklats enormt de senaste åren 
är att ta i i underkant. Det behö- 
ver man inte vara dataexpert för 
att förstå. 

-En miniräknare idag klarar 
av mer än en dator gjorde för tio 
år sedan, säger Christian. 

-Det vi idag kallar ordbehand- 


ling bestod i princip av att kunna 
transportera över ord från ett 
papper till dataskärmen. 

Men den största förändringen 
är kanske ändå datorernas öka- 
de användningsområden. Da- 
torn har förvandlats från något 
mystiskt och obegripligt till en 
”var mans pryl”. Christian berät- 
tar småskrattande om kompisar- 
nas besvikelse när de upptäckte 
att de stora, blinkande monitors 
med sladdar kors och tvärs de 
väntat sig att se hemma hos ho- 
nom i själva verket mest liknade 
alldeles vanliga TV-apparater. 

Länge möttes både datorer och 
de som arbetade med dem med 
stor skepsis och misstänksam- 
het, något Christian kände på i 
särskilt hög grad eftersom han 
dessutom var så ung. Det är först 
på senare tid,säger han, som det 
har blivit accepterat, och t.o.m 
statusbetonat, att syssla med da- 
torer. Han märker också att atti- 
tyden till dataintresserade ung- 
domar har förändrats. - När jag 
började skriva ”Dataspalten” 
kände jag att folk inte riktigt li- 
tade på mig, och det är inte för- 
rän de senaste åren jag blivit 
”vuxen nog” att kunna något. 
Idag, däremot, är det ingen som 
ifrågasätter att en femtonåring 
kanske kan mer om datorer än 
en vuxen, menar Christian. 
Skillnader märks också i ”Data- 
spalten” där läsekretsen bred- 
dats en hel del. Bl a pensionärer 
är en grupp på frammarsch. 


NÄSTA TIO ÅR? 
Det var utvecklingen de senas- 





...och i dag som 20-årig vete- 
ran på området. 


te tio åren i mycket korta drag - 
vad med de nästa tio? Kommer 


datorerna att kunna fortsätta ut- 


vecklas i samma hastighet ? - Oh, 
ja, till och med mer, tror Christi- 
an. Något ”tak”är definitivt inte 
nått på länge än. 

Om Pec:n var åttiotalets pryl, 
tror Christian att CD-ROM blir 
nittiotalets. CD-ROM är ett tek- 
nik-CD-program, vilket i korthet 
innebär att man istället för dis- 
ketter använder CD-skivor. För- 
delarna gentemot disketterna är 
många; på en CD ryms flera hun- 
dra disketter, slitaget blir mini- 
malt samtidigt som det blir en lä- 
gre tillverkningskostnad. Precis 


som CD-skivorna slog ut LP:ski- 
vorna, tror han att disketterna 
successivt kommer att slås ut av 
”data-CD”-nästa år beräknas 
hälften av alla nya datorer tilver- 
kas med den här tekniken. 

Den största utvecklingsmark- 
naden framöver tror Christian 
att hemmet blir. Hans eget ex- 
perttips för den som i god tid vill 
skaffa sig det allra senaste är CD 
32; en CD-spelare som kopplas 
till TV:n och styrs av en fjärrkon- 
troll. På den ska man kunna spe- 
la sina CD-skivor, eller använda 
den som uppslagsverk, visa vi- 
deofilmer på den (givetvis kom- 
mer videokasetter också att så 
småningom helt ersättas av CD) 
eller kanske flytta över sina foto 
till foto-CD och göra ett alterna- 
tivt album. Möjligheterna är 
oändliga. Universalprylen för 
varje hem, och så pass billig - 
3.500 kr räknar man med - att 
den har alla möjligheter att bli 
en konsumentvara. 


MÄNNISKAN FRAMFÖR DATORN ... 

Christian berättar entusias- 
tiskt om alla nya tekniska fram- 
steg. Själv befinner han sig mitt 
uppe i den senaste utvecklingen, 
och hör hela tiden talas om nya 
tekniska underverk. Händer det 
aldrig att han känner en viss oro 
för datorernas oupphörliga ut- 
veckling? - Det är inte datorerna 
och deras möjligheter man ska 
vara rädd för, utan människorna 
som sitter framför dem, säger 
Christian Lindeberg med efter- 
tryck. 


